import System.IO

isConsonant :: Char -> Bool
isConsonant = (`elem` "bcdfghjklmnpqrstvwxzBCDFGHJKLMNPQRSTVWXZ")

rovarspraket :: String -> String -> String
rovarspraket [] out = out
rovarspraket (x:xs) out =
  rovarspraket xs $ out ++ if isConsonant x then [ x, 'o', x ] else [ x ]

main :: IO ()
main = do
  putStr "Saisissez une chaine : "
  hFlush stdout
  input <- getLine
  let a = rovarspraket input ""
  putStr a
  putStr "\n"