>>265
バッファリングされてるからフラッシュする

import IO

main = do{
putStr "input >";
hFlush stdout;
s <- getLine;
putStrLn s;
}