[Haskell-cafe] getChar