;  test nut3 compiler

(def != (a b) () 
  (if (= a b) 0 1))

(def add1 (x) ()
  (+ x 1))

(def main () ()
  (add1 3))

==== on the screen ====  (parse tree)

D:\prabhas\bag\teaching\ads2007\nut3\test>nut3 < add1.txt
!=
(fun.2.2 (if (= get.1 get.2 )lit.0 lit.1 ))
add1
(fun.1.1 (+ get.1 lit.1 ))
main
(fun.0.0 (call.16 lit.3 ))

D:\prabhas\bag\teaching\ads2007\nut3\test>

====  object code (n-code) ======

36 38
2 1 14 1 0
4 1 14 2 2
6 1 10 0 4
8 1 16 1 0
10 1 16 0 8
12 0 0 6 10
14 1 1 0 12
16 0 0 14 0
18 1 19 514 16
20 1 16 1 0
22 1 14 1 20
24 1 6 0 22
26 0 0 24 0
28 1 19 257 26
30 1 16 3 0
32 1 13 28 30
34 0 0 32 0
36 1 19 0 34       
0

3
!= 3 18 2 2
add1 3 28 1 1
main 3 36 0 0