AVTOKYOでチケットを買う時はこのプログラムを是非。

avtokyo.hs

avtokyo t = do
 putStr "当日8000円(a)/前売り5000円(b)/合計(c)"
 s <- getChar
 putStr "\n"
 case s of
   'a' -> avtokyo (t + 8000)
   'b' -> avtokyo (t + 5000)
   'c' -> return t
   _   -> (do putStr "入力 "; avtokyo t)
main = do
 putStrLn "AVTOKYOのチケットを買うんですね？"
 n <- buy 0
 putStrLn ("全部で"++(show n)++"円です。お金は足りますか？！")