Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/infix/operator/Main.hs
(|..) :: a -> a -> a x |.. y = y f = [2|..3] main = putStrLn (show f)