module Main where

strToInteger = (read :: String -> Integer)

main :: IO()
main = do
putStr "x = "
x <- getLine
putStr "y = "
y <- getLine
putStr ("x + y = " ++ show ( strToInteger x + strToInteger y ) )

あの・・・ x = とか y = とかが表示されない、
というか正確には getLine の前に確実に表示されるように
するにはどうすればいいでしょうか？