Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/infix/local/Main.hs
main = print val val = 3 +! 4 *! 2 where (+!) = (+) (*!) = (*) infixl 6 +! infixl 7 *!
