Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/layout/tullsen2/Main.hs
f x y = case x of [] -> g 0 b:bs -> g 1 where g a = a + y main = putStrLn (show (f [1,2,3] 5))
