do { line <- getLine; putStrLn line }
I guess there's something funky in the unicode handling on the site.