Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/layout/brace/Main.hs
module Main where x a = case a of "aa" -> a "{" -> a main = putStrLn (x "{")