data Foo = Bar

implementation Show Foo where
  show Bar = "a Foo"
  f