Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/layout/bad/Main.hs

foo = let
    x = (1, 2
    y = 3
  in
  fst x + y

main = print foo