Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/infix/constructor/Main.hs
module Main where infix 2 |- ps |- q:qs = undefined main :: IO () main = return ()
