从标准输入读取一行

main = do
    line <- getLine
    putStrLn line

输入：

This is an example.

输出：

This is an example.