module ShowFun where

instance Show (a->b) where
  show _ = "<function>"

instance Read (a->b)