module Rename1 where

bar2 x y =
   do c <- getChar
      return c