12 Feb
2002
12 Feb
'02
8:09 p.m.
How should I modify the function below so that characters are printed out as they arrive? Thanks. Tom printchar :: Handle -> IO () printchar handle = do c <- hGetChar handle putChar c