SimpleIOTest.hs

module Main where

main :: IO ()
main = do
    l <- getLine
    if l == "aei"
        then putStrLn "aeiok\n"
        else appendFile "/tmp/rabbocopLog" "failed\n"
    appendFile "/tmp/rabbocopLog" l
    appendFile "/tmp/rabbocopLog" (show $ l == "aei")
    l2 <- getLine
    putStrLn l2