从标准输入读取一行

main = do
    line <- getLine
    putStrLn line

输入:

This is an example.

输出:

This is an example.