cmavo.hs

co = ".bcdfgjklmnprstvxz"
vo = "aeiou"
vovo = ["ai","ei","oi","au"]

cv = do
  c <- co
  v <- vo
  return [c,v]

cv'v = do
  c <- co
  v <- vo
  w <- vo
  return [c,v,'\'',w]

cy = do
  c <- co
  return $ c:"y."

cvv = do
  c <- co
  vv <- vovo
  return $ c:vv

iV_uV = do 
  iu <- "iu"
  v <- vo
  return ['.',iu,v]

main = print (cv ++ cv'v ++ cy ++ cvv ++ iV_uV)