test.hs

main :: IO()
main = 
    putStrLn $ "The answer to the Ultimate Question of Life, "
                ++ "the Universe, and Everything is "
                ++ show answer
        where
            answer = 42