module Acme.CuteGirl where
import System.Environment (getArgs)
data CuteGirl = Sayaka | Kyōko | Homura deriving Show
cuteGirl :: Maybe CuteGirl
cuteGirl = Just Sayaka
printCuteGirl :: IO ()
printCuteGirl = case cuteGirl of
Just Sayaka -> putStrLn $ concat [ "You expected some cute girl?\n"
, "Too bad!\n"
, "It was Sayaka-chan!"
]
_ -> return ()
jpnPrintCuteGirl :: IO ()
jpnPrintCuteGirl = case cuteGirl of
Just Sayaka -> putStrLn $ concat [ "かわいい女の子かと思った?\n"
, "残念!\n"
, "残念さやかちゃんでした!"
]
_ -> return ()