bar2 x y =
   do c <- getChar
      return c