Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/nofib/real/gamteb/ndiv2.hs
n = 1::Int main = do let n1 = (n `div` 2) let n2 = n - n1 print n1 print n2
