getInt = do { x <- readIO "0"; return $! (x :: Int) }