從標準輸入讀取一行

main = do
    line <- getLine
    putStrLn line

輸入：

This is an example.

輸出：

This is an example.