compiler/ilxGen/tests/test20.hs

   1
   2 data N = Z | S N
   3
   4 res Z x y = (# x, y #)
   5 res (S n) x y = res n x y
   6
   7 (# x, y #) = res (S Z) "no!" "hello world\n"
   8
   9 main = putStr y