class Food a where
  munch :: a -> String