module Rename1 where

foo x y =
   do c <- getChar
      return c