foo :: Int
foo = bar
  where
    Foo bar baz = quux
    Baz
      quux = zoo