foo x y =
   do c <- getChar
      return c