shokos

echo = do
  str <- getLine
  if str == "quit"
    then do
      putStrLn "Do you really want to quit? (yes/no)"
      ans <- getLine
      if ans == "yes"
        then return ()
        else echo
    else do