No Subject

[Jason]

Hi, I am using win32 hugs (and windows98 (on a pc)), and its not waiting 
for input when I am using "<- getLine" it just continues.
Why is it behaving like that and more important, how can I solve this problem

quizLoop :: ([Integer], Int) -> IO ()
quizLoop ((x:xs), score) = do putStrLn "\nWrite this number with letters"
                               putStr (show x ++ " ?")
                               answer <- getLine

/ Jason