(a3:define-set (0 0)
(a3:call-sub 0)
) ;; end of define-set 
(a3:define-sub (0 0)
(a3:call-user-func 2051 -1)
(a3:call-user-func 2021 0)
(a3:call-user-func 2023 0)
(a3:call-user-func 2015)
(a3:call-user-func 2070)
(a3:call-user-func 2150)
(a3:call-user-func 2050)
(a3:call-user-func 2103 1)
(a3:call-user-func 1016 3 1 -1 0)
(a3:call-sub 2)
(a3:call-user-func 2015)
(a3:call-user-func 2050)
(a3:call-user-func 2120)
) ;; end of define-sub 
(a3:define-sub (2 0)
(a3:call-user-func 4110 256)
(a3:eval-noeffect (a3:assign-word 1002 (a3:idref-reflag))
)
(a3:call-user-func 4110 257)
(a3:eval-noeffect (a3:assign-word 1003 (a3:idref-reflag))
)
(a3:call-user-func 4110 258)
(a3:eval-noeffect (a3:assign-word 1004 (a3:idref-reflag))
)
(a3:call-user-func 4110 259)
(a3:eval-noeffect (a3:assign-word 1005 (a3:idref-reflag))
)
(a3:call-user-func 4110 260)
(a3:eval-noeffect (a3:assign-word 1006 (a3:idref-reflag))
)
(a3:call-user-func 4110 266)
(a3:eval-noeffect (a3:assign-word 1007 (a3:idref-reflag))
)
(a3:call-user-func 4110 267)
(a3:eval-noeffect (a3:assign-word 1008 (a3:idref-reflag))
)
(a3:call-user-func 4110 268)
(a3:eval-noeffect (a3:assign-word 1009 (a3:idref-reflag))
)
(a3:call-user-func 4110 269)
(a3:eval-noeffect (a3:assign-word 1010 (a3:idref-reflag))
)
(a3:call-user-func 4110 270)
(a3:eval-noeffect (a3:assign-word 1011 (a3:idref-reflag))
)
(a3:call-user-func 4110 271)
(a3:eval-noeffect (a3:assign-word 1012 (a3:idref-reflag))
)
(a3:call-user-func 4110 276)
(a3:eval-noeffect (a3:assign-word 1013 (a3:idref-reflag))
)
(a3:call-user-func 4110 277)
(a3:eval-noeffect (a3:assign-word 1014 (a3:idref-reflag))
)
(a3:call-user-func 4110 278)
(a3:eval-noeffect (a3:assign-word 1015 (a3:idref-reflag))
)
(a3:call-user-func 4110 279)
(a3:eval-noeffect (a3:assign-word 1016 (a3:idref-reflag))
)
(a3:call-user-func 4110 280)
(a3:eval-noeffect (a3:assign-word 1017 (a3:idref-reflag))
)
(a3:call-user-func 4110 281)
(a3:eval-noeffect (a3:assign-word 1018 (a3:idref-reflag))
)
(a3:call-user-func 4110 282)
(a3:eval-noeffect (a3:assign-word 1019 (a3:idref-reflag))
)
(a3:call-user-func 4110 283)
(a3:eval-noeffect (a3:assign-word 1020 (a3:idref-reflag))
)
(a3:eval-noeffect (a3:assign-word 1000 0)
)
(a3:eval-noeffect (a3:assign-word 1001 1)
)
(a3:eval-noeffect (a3:assign-word 1040 0)
)
(a3:eval-noeffect (a3:assign-word 1041 0)
)
(a3:eval-noeffect (a3:assign-word 1042 0)
)
(a3:call-user-func 2120)
(a3:call-user-func 2000 1000 -1 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 4001)
(a3:call-user-func 2123 1000 2001 1 0 16 10 255 0)
(a3:call-user-func 2123 1001 1240 1 0 80 10 255 0)
(a3:call-user-func 2123 1002 1241 1 400 80 10 255 0)
(a3:call-user-func 4001)
(a3:call-user-func 2123 1022 1220 1 104 544 10 255 0)
(a3:call-user-func 2123 1023 1230 1 256 544 10 255 0)
(a3:call-user-func 4001)
(a3:call-user-func 2123 1003 1500 1 24 128 10 255 0)
(a3:call-user-func 2123 1004 1510 1 24 160 10 255 0)
(a3:call-user-func 2123 1005 1520 1 24 192 10 255 0)
(a3:call-user-func 2123 1006 1530 1 24 224 10 255 0)
(a3:call-user-func 2123 1007 1540 1 24 256 10 255 0)
(a3:call-user-func 2123 1008 1550 1 424 128 10 255 0)
(a3:call-user-func 2123 1009 1560 1 424 160 10 255 0)
(a3:call-user-func 2123 1010 1570 1 424 192 10 255 0)
(a3:call-user-func 2123 1011 1560 1 424 224 10 255 0)
(a3:call-user-func 2123 1012 1580 1 424 256 10 255 0)
(a3:call-user-func 2123 1013 1590 1 424 288 10 255 0)
(a3:call-user-func 2123 1014 1616 1 424 320 10 255 0)
(a3:call-user-func 2123 1015 1618 1 424 352 10 255 0)
(a3:call-user-func 2123 1016 1620 1 424 384 10 255 0)
(a3:call-user-func 2123 1017 1622 1 424 416 10 255 0)
(a3:call-user-func 2123 1018 1624 1 424 448 10 255 0)
(a3:call-user-func 2123 1019 1626 1 424 480 10 255 0)
(a3:call-user-func 2123 1020 1628 1 424 512 10 255 0)
(a3:call-user-func 4001)
(a3:call-user-func 2123 1103 1501 0 24 128 10 255 0)
(a3:call-user-func 2123 1104 1511 0 24 160 10 255 0)
(a3:call-user-func 2123 1105 1521 0 24 192 10 255 0)
(a3:call-user-func 2123 1106 1531 0 24 224 10 255 0)
(a3:call-user-func 2123 1107 1541 0 24 256 10 255 0)
(a3:call-user-func 2123 1108 1551 0 424 128 10 255 0)
(a3:call-user-func 2123 1109 1561 0 424 160 10 255 0)
(a3:call-user-func 2123 1110 1571 0 424 192 10 255 0)
(a3:call-user-func 2123 1111 1561 0 424 224 10 255 0)
(a3:call-user-func 2123 1112 1581 0 424 256 10 255 0)
(a3:call-user-func 2123 1113 1591 0 424 288 10 255 0)
(a3:call-user-func 2123 1114 1617 0 424 320 10 255 0)
(a3:call-user-func 2123 1115 1619 0 424 352 10 255 0)
(a3:call-user-func 2123 1116 1621 0 424 384 10 255 0)
(a3:call-user-func 2123 1117 1623 0 424 416 10 255 0)
(a3:call-user-func 2123 1118 1625 0 424 448 10 255 0)
(a3:call-user-func 2123 1119 1627 0 424 480 10 255 0)
(a3:call-user-func 2123 1120 1629 0 424 512 10 255 0)
(a3:call-user-func 4001)
;; begin do-while 
(a3:label 2)
(a3:call-sub 3)
(a3:eval-noeffect (a3:assign-word 1001 0)
)
(a3:call-user-func 2131 1022 1 1001)
(a3:call-user-func 2131 1023 1 1003)
(a3:call-user-func 2131 1022 2 1050)
(a3:call-user-func 2131 1023 2 1051)
(a3:call-sub 4)
(a3:eval (a3:bop-equal? (a3:idref-word 1000) 0))
(a3:if 2)
;; end do-while 
(a3:call-user-func 2120)
) ;; end of define-sub 
(a3:define-sub (3 0)
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1024)))
(a3:ifnot 4)
;; begin then-clause 
(a3:eval (a3:idref-word 1002))
(a3:switch ( 0 6) ( 1 7) ( 2 8) ( 3 9) ( default 10) )
(a3:label 6)
(a3:call-user-func 2123 1024 1000 1 256 128 10 255 0)
(a3:goto 5)
(a3:label 7)
(a3:call-user-func 2123 1024 1010 1 256 128 10 255 0)
(a3:goto 5)
(a3:label 8)
(a3:call-user-func 2123 1024 1020 1 256 128 10 255 0)
(a3:goto 5)
(a3:label 9)
(a3:call-user-func 2123 1024 1030 1 256 128 10 255 0)
(a3:goto 5)
(a3:label 10)
(a3:goto 5)
(a3:label 5)
(a3:call-user-func 2131 1024 1 1005)
(a3:call-user-func 2131 1024 2 1052)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 11)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 11)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 4)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1025)))
(a3:ifnot 12)
;; begin then-clause 
(a3:eval (a3:idref-word 1003))
(a3:switch ( 0 14) ( 1 15) ( 2 16) ( default 17) )
(a3:label 14)
(a3:call-user-func 2123 1025 1080 1 256 160 10 255 0)
(a3:goto 13)
(a3:label 15)
(a3:call-user-func 2123 1025 1060 1 256 160 10 255 0)
(a3:goto 13)
(a3:label 16)
(a3:call-user-func 2123 1025 1070 1 256 160 10 255 0)
(a3:goto 13)
(a3:label 17)
(a3:goto 13)
(a3:label 13)
(a3:call-user-func 2131 1025 1 1007)
(a3:call-user-func 2131 1025 2 1053)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 18)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 18)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 12)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1026)))
(a3:ifnot 19)
;; begin then-clause 
(a3:eval (a3:idref-word 1004))
(a3:switch ( 0 21) ( 1 22) ( default 23) )
(a3:label 21)
(a3:call-user-func 2123 1026 1040 1 256 192 10 255 0)
(a3:goto 20)
(a3:label 22)
(a3:call-user-func 2123 1026 1050 1 256 192 10 255 0)
(a3:goto 20)
(a3:label 23)
(a3:goto 20)
(a3:label 20)
(a3:call-user-func 2131 1026 1 1009)
(a3:call-user-func 2131 1026 2 1054)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 24)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 24)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 19)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1027)))
(a3:ifnot 25)
;; begin then-clause 
(a3:eval (a3:idref-word 1005))
(a3:switch ( 0 27) ( 1 28) ( default 29) )
(a3:label 27)
(a3:call-user-func 2123 1027 1090 1 256 224 10 255 0)
(a3:goto 26)
(a3:label 28)
(a3:call-user-func 2123 1027 1100 1 256 224 10 255 0)
(a3:goto 26)
(a3:label 29)
(a3:goto 26)
(a3:label 26)
(a3:call-user-func 2131 1027 1 1011)
(a3:call-user-func 2131 1027 2 1055)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 30)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 30)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 25)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1028)))
(a3:ifnot 31)
;; begin then-clause 
(a3:eval (a3:idref-word 1006))
(a3:switch ( 0 33) ( 1 34) ( 2 35) ( 3 36) ( default 37) )
(a3:label 33)
(a3:call-user-func 2123 1028 1080 1 256 256 10 255 0)
(a3:goto 32)
(a3:label 34)
(a3:call-user-func 2123 1028 1010 1 256 256 10 255 0)
(a3:goto 32)
(a3:label 35)
(a3:call-user-func 2123 1028 1020 1 256 256 10 255 0)
(a3:goto 32)
(a3:label 36)
(a3:call-user-func 2123 1028 1030 1 256 256 10 255 0)
(a3:goto 32)
(a3:label 37)
(a3:goto 32)
(a3:label 32)
(a3:call-user-func 2131 1028 1 1013)
(a3:call-user-func 2131 1028 2 1056)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 38)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 38)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 31)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1029)))
(a3:ifnot 39)
;; begin then-clause 
(a3:eval (a3:idref-word 1007))
(a3:switch ( 0 41) ( 1 42) ( default 43) )
(a3:label 41)
(a3:call-user-func 2123 1029 1090 1 656 128 10 255 0)
(a3:goto 40)
(a3:label 42)
(a3:call-user-func 2123 1029 1110 1 656 128 10 255 0)
(a3:goto 40)
(a3:label 43)
(a3:goto 40)
(a3:label 40)
(a3:call-user-func 2131 1029 1 1015)
(a3:call-user-func 2131 1029 2 1057)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 44)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 44)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 39)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1030)))
(a3:ifnot 45)
;; begin then-clause 
(a3:eval (a3:idref-word 1008))
(a3:switch ( 0 47) ( 1 48) ( 2 49) ( 3 50) ( 4 51) ( 5 52) ( 6 53) ( 7 54) ( 8 55) ( 9 56) ( default 57) )
(a3:label 47)
(a3:call-user-func 2123 1030 1120 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 48)
(a3:call-user-func 2123 1030 1130 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 49)
(a3:call-user-func 2123 1030 1140 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 50)
(a3:call-user-func 2123 1030 1150 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 51)
(a3:call-user-func 2123 1030 1160 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 52)
(a3:call-user-func 2123 1030 1170 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 53)
(a3:call-user-func 2123 1030 1180 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 54)
(a3:call-user-func 2123 1030 1190 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 55)
(a3:call-user-func 2123 1030 1200 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 56)
(a3:call-user-func 2123 1030 1210 1 656 160 10 255 0)
(a3:goto 46)
(a3:label 57)
(a3:goto 46)
(a3:label 46)
(a3:call-user-func 2131 1030 1 1017)
(a3:call-user-func 2131 1030 2 1058)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 58)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 58)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 45)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1031)))
(a3:ifnot 59)
;; begin then-clause 
(a3:eval (a3:idref-word 1009))
(a3:switch ( 0 61) ( 1 62) ( default 63) )
(a3:label 61)
(a3:call-user-func 2123 1031 1090 1 656 192 10 255 0)
(a3:goto 60)
(a3:label 62)
(a3:call-user-func 2123 1031 1110 1 656 192 10 255 0)
(a3:goto 60)
(a3:label 63)
(a3:goto 60)
(a3:label 60)
(a3:call-user-func 2131 1031 1 1019)
(a3:call-user-func 2131 1031 2 1059)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 64)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 64)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 59)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1032)))
(a3:ifnot 65)
;; begin then-clause 
(a3:eval (a3:idref-word 1010))
(a3:switch ( 0 67) ( 1 68) ( 2 69) ( 3 70) ( 4 71) ( 5 72) ( 6 73) ( 7 74) ( 8 75) ( 9 76) ( default 77) )
(a3:label 67)
(a3:call-user-func 2123 1032 1120 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 68)
(a3:call-user-func 2123 1032 1130 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 69)
(a3:call-user-func 2123 1032 1140 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 70)
(a3:call-user-func 2123 1032 1150 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 71)
(a3:call-user-func 2123 1032 1160 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 72)
(a3:call-user-func 2123 1032 1170 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 73)
(a3:call-user-func 2123 1032 1180 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 74)
(a3:call-user-func 2123 1032 1190 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 75)
(a3:call-user-func 2123 1032 1200 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 76)
(a3:call-user-func 2123 1032 1210 1 656 224 10 255 0)
(a3:goto 66)
(a3:label 77)
(a3:goto 66)
(a3:label 66)
(a3:call-user-func 2131 1032 1 1021)
(a3:call-user-func 2131 1032 2 1060)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 78)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 78)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 65)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1033)))
(a3:ifnot 79)
;; begin then-clause 
(a3:eval (a3:idref-word 1011))
(a3:switch ( 0 81) ( 1 82) ( default 83) )
(a3:label 81)
(a3:call-user-func 2123 1033 1090 1 656 256 10 255 0)
(a3:goto 80)
(a3:label 82)
(a3:call-user-func 2123 1033 1110 1 656 256 10 255 0)
(a3:goto 80)
(a3:label 83)
(a3:goto 80)
(a3:label 80)
(a3:call-user-func 2131 1033 1 1023)
(a3:call-user-func 2131 1033 2 1061)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 84)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 84)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 79)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1034)))
(a3:ifnot 85)
;; begin then-clause 
(a3:eval (a3:idref-word 1012))
(a3:switch ( 0 87) ( 1 88) ( 2 89) ( 3 90) ( 4 91) ( 5 92) ( 6 93) ( 7 94) ( 8 95) ( 9 96) ( default 97) )
(a3:label 87)
(a3:call-user-func 2123 1034 1120 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 88)
(a3:call-user-func 2123 1034 1130 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 89)
(a3:call-user-func 2123 1034 1140 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 90)
(a3:call-user-func 2123 1034 1150 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 91)
(a3:call-user-func 2123 1034 1160 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 92)
(a3:call-user-func 2123 1034 1170 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 93)
(a3:call-user-func 2123 1034 1180 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 94)
(a3:call-user-func 2123 1034 1190 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 95)
(a3:call-user-func 2123 1034 1200 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 96)
(a3:call-user-func 2123 1034 1210 1 656 288 10 255 0)
(a3:goto 86)
(a3:label 97)
(a3:goto 86)
(a3:label 86)
(a3:call-user-func 2131 1034 1 1025)
(a3:call-user-func 2131 1034 2 1062)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 98)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 98)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 85)
;; end of if statement 
(a3:eval (a3:bop-logical-or (a3:bop-equal? (a3:idref-word 1001) 1) (a3:bop-equal? (a3:idref-word 1001) 1039)))
(a3:ifnot 99)
;; begin then-clause 
(a3:eval (a3:idref-word 1017))
(a3:switch ( 0 101) ( 1 102) ( 2 103) ( 3 104) ( 4 105) ( 5 106) ( 6 107) ( 7 108) ( 8 109) ( 9 110) ( default 111) )
(a3:label 101)
(a3:call-user-func 2123 1039 1110 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 102)
(a3:call-user-func 2123 1039 1130 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 103)
(a3:call-user-func 2123 1039 1140 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 104)
(a3:call-user-func 2123 1039 1150 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 105)
(a3:call-user-func 2123 1039 1160 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 106)
(a3:call-user-func 2123 1039 1170 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 107)
(a3:call-user-func 2123 1039 1180 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 108)
(a3:call-user-func 2123 1039 1190 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 109)
(a3:call-user-func 2123 1039 1200 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 110)
(a3:call-user-func 2123 1039 1210 1 656 448 10 255 0)
(a3:goto 100)
(a3:label 111)
(a3:goto 100)
(a3:label 100)
(a3:call-user-func 2131 1039 1 1035)
(a3:call-user-func 2131 1039 2 1067)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1001) 1))
(a3:ifnot 112)
;; begin then-clause 
(a3:return)
;; end then-clause 
(a3:label 112)
;; end of if statement 
(a3:call-user-func 4001)
;; end then-clause 
(a3:label 99)
;; end of if statement 
) ;; end of define-sub 
(a3:define-sub (4 0)
;; begin do-while 
(a3:label 113)
(a3:call-user-func 4000 4 500000 0)
(a3:eval (a3:bop-logical-and (a3:bop-less-equal? 1005 (a3:idref-reflag)) (a3:bop-less-equal? (a3:idref-reflag) 1042)))
(a3:ifnot 115)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-acc (a3:bop-add (a3:bop-div (a3:bop-sub (a3:idref-reflag) 1005) 2) 1))
)
(a3:eval (a3:bop-bit-and (a3:idref-reflag) 1))
(a3:ifnot 117)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1041 (a3:idref-acc))
)
(a3:eval (a3:bop-equal? (a3:idref-word 1042) (a3:idref-acc)))
(a3:ifnot 119)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1042 0)
)
;; end then-clause 
(a3:label 119)
;; end of if statement 
(a3:goto 118)
;; end then-clause 
(a3:label 117)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1042 (a3:idref-acc))
)
(a3:eval (a3:bop-equal? (a3:idref-word 1041) (a3:idref-acc)))
(a3:ifnot 120)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1041 0)
)
;; end then-clause 
(a3:label 120)
;; end of if statement 
;; end else-clause 
(a3:label 118)
;; end of if statement 
(a3:call-sub 5)
(a3:goto 116)
;; end then-clause 
(a3:label 115)
;; begin else-clause 
(a3:eval (a3:idref-reflag))
(a3:switch ( 1001 122) ( 1003 123) ( 1050 124) ( 1051 125) ( 1052 126) ( 1053 127) ( 1054 128) ( 1055 129) ( 1056 130) ( 1057 131) ( 1058 132) ( 1059 133) ( 1060 134) ( 1061 135) ( 1062 136) ( 1063 137) ( 1064 138) ( 1065 139) ( 1066 140) ( 1067 141) ( 1068 142) ( 1069 143) ( 1070 144) ( default 145) )
(a3:label 122)
(a3:goto 121)
(a3:label 123)
(a3:goto 121)
(a3:label 124)
(a3:call-sub 10)
(a3:eval-noeffect (a3:assign-word 1000 1)
)
(a3:eval-noeffect (a3:assign-word 1001 1)
)
(a3:goto 121)
(a3:label 125)
(a3:eval-noeffect (a3:assign-word 1000 1)
)
(a3:eval-noeffect (a3:assign-word 1001 1)
)
(a3:goto 121)
(a3:label 126)
(a3:eval (a3:bop-less? (a3:idref-word 1002) 3))
(a3:ifnot 146)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1002)
)
(a3:goto 147)
;; end then-clause 
(a3:label 146)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1002 0)
)
;; end else-clause 
(a3:label 147)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1024)
)
(a3:goto 121)
(a3:label 127)
(a3:eval (a3:bop-less? (a3:idref-word 1003) 2))
(a3:ifnot 148)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1003)
)
(a3:goto 149)
;; end then-clause 
(a3:label 148)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1003 0)
)
;; end else-clause 
(a3:label 149)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1025)
)
(a3:goto 121)
(a3:label 128)
(a3:eval (a3:bop-less? (a3:idref-word 1004) 1))
(a3:ifnot 150)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1004)
)
(a3:goto 151)
;; end then-clause 
(a3:label 150)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1004 0)
)
;; end else-clause 
(a3:label 151)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1026)
)
(a3:goto 121)
(a3:label 129)
(a3:eval (a3:bop-less? (a3:idref-word 1005) 1))
(a3:ifnot 152)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1005)
)
(a3:goto 153)
;; end then-clause 
(a3:label 152)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1005 0)
)
;; end else-clause 
(a3:label 153)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1027)
)
(a3:goto 121)
(a3:label 130)
(a3:eval (a3:bop-less? (a3:idref-word 1006) 3))
(a3:ifnot 154)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1006)
)
(a3:goto 155)
;; end then-clause 
(a3:label 154)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1006 0)
)
;; end else-clause 
(a3:label 155)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1028)
)
(a3:goto 121)
(a3:label 131)
(a3:eval (a3:bop-less? (a3:idref-word 1007) 1))
(a3:ifnot 156)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1007)
)
(a3:goto 157)
;; end then-clause 
(a3:label 156)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1007 0)
)
;; end else-clause 
(a3:label 157)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1029)
)
(a3:goto 121)
(a3:label 132)
(a3:eval (a3:bop-less? (a3:idref-word 1008) 9))
(a3:ifnot 158)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1008)
)
(a3:goto 159)
;; end then-clause 
(a3:label 158)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1008 0)
)
;; end else-clause 
(a3:label 159)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1030)
)
(a3:goto 121)
(a3:label 133)
(a3:eval (a3:bop-less? (a3:idref-word 1009) 1))
(a3:ifnot 160)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1009)
)
(a3:goto 161)
;; end then-clause 
(a3:label 160)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1009 0)
)
;; end else-clause 
(a3:label 161)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1031)
)
(a3:goto 121)
(a3:label 134)
(a3:eval (a3:bop-less? (a3:idref-word 1010) 9))
(a3:ifnot 162)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1010)
)
(a3:goto 163)
;; end then-clause 
(a3:label 162)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1010 0)
)
;; end else-clause 
(a3:label 163)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1032)
)
(a3:goto 121)
(a3:label 135)
(a3:eval (a3:bop-less? (a3:idref-word 1011) 1))
(a3:ifnot 164)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1011)
)
(a3:goto 165)
;; end then-clause 
(a3:label 164)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1011 0)
)
;; end else-clause 
(a3:label 165)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1033)
)
(a3:goto 121)
(a3:label 136)
(a3:eval (a3:bop-less? (a3:idref-word 1012) 9))
(a3:ifnot 166)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1012)
)
(a3:goto 167)
;; end then-clause 
(a3:label 166)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1012 0)
)
;; end else-clause 
(a3:label 167)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1034)
)
(a3:goto 121)
(a3:label 137)
(a3:eval (a3:bop-less? (a3:idref-word 1013) 9))
(a3:ifnot 168)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1013)
)
(a3:goto 169)
;; end then-clause 
(a3:label 168)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1013 0)
)
;; end else-clause 
(a3:label 169)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1035)
)
(a3:goto 121)
(a3:label 138)
(a3:eval (a3:bop-less? (a3:idref-word 1014) 9))
(a3:ifnot 170)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1014)
)
(a3:goto 171)
;; end then-clause 
(a3:label 170)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1014 0)
)
;; end else-clause 
(a3:label 171)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1036)
)
(a3:goto 121)
(a3:label 139)
(a3:eval (a3:bop-less? (a3:idref-word 1015) 9))
(a3:ifnot 172)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1015)
)
(a3:goto 173)
;; end then-clause 
(a3:label 172)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1015 0)
)
;; end else-clause 
(a3:label 173)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1037)
)
(a3:goto 121)
(a3:label 140)
(a3:eval (a3:bop-less? (a3:idref-word 1016) 9))
(a3:ifnot 174)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1016)
)
(a3:goto 175)
;; end then-clause 
(a3:label 174)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1016 0)
)
;; end else-clause 
(a3:label 175)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1038)
)
(a3:goto 121)
(a3:label 141)
(a3:eval (a3:bop-less? (a3:idref-word 1017) 9))
(a3:ifnot 176)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1017)
)
(a3:goto 177)
;; end then-clause 
(a3:label 176)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1017 0)
)
;; end else-clause 
(a3:label 177)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1039)
)
(a3:goto 121)
(a3:label 142)
(a3:eval (a3:bop-less? (a3:idref-word 1018) 9))
(a3:ifnot 178)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1018)
)
(a3:goto 179)
;; end then-clause 
(a3:label 178)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1018 0)
)
;; end else-clause 
(a3:label 179)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1040)
)
(a3:goto 121)
(a3:label 143)
(a3:eval (a3:bop-less? (a3:idref-word 1019) 9))
(a3:ifnot 180)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1019)
)
(a3:goto 181)
;; end then-clause 
(a3:label 180)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1019 0)
)
;; end else-clause 
(a3:label 181)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1041)
)
(a3:goto 121)
(a3:label 144)
(a3:eval (a3:bop-less? (a3:idref-word 1020) 9))
(a3:ifnot 182)
;; begin then-clause 
(a3:eval-noeffect (a3:pre-incr-word 1020)
)
(a3:goto 183)
;; end then-clause 
(a3:label 182)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1020 0)
)
;; end else-clause 
(a3:label 183)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1001 1042)
)
(a3:goto 121)
(a3:label 145)
(a3:goto 121)
(a3:label 121)
;; end else-clause 
(a3:label 116)
;; end of if statement 
(a3:eval (a3:bop-equal? (a3:idref-word 1001) 0))
(a3:if 113)
;; end do-while 
) ;; end of define-sub 
(a3:define-sub (5 0)
(a3:eval (a3:bop-not-equal? (a3:idref-word 1042) 0))
(a3:ifnot 184)
;; begin then-clause 
(a3:eval (a3:bop-equal? (a3:idref-word 1042) (a3:idref-word 1040)))
(a3:ifnot 185)
;; begin then-clause 
(a3:eval (a3:bop-equal? (a3:idref-word 1041) 0))
(a3:ifnot 187)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1040 0)
)
(a3:goto 188)
;; end then-clause 
(a3:label 187)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-acc 0)
)
;; end else-clause 
(a3:label 188)
;; end of if statement 
(a3:goto 186)
;; end then-clause 
(a3:label 185)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1042 0)
)
;; end else-clause 
(a3:label 186)
;; end of if statement 
;; end then-clause 
(a3:label 184)
;; end of if statement 
(a3:eval (a3:bop-not-equal? (a3:idref-word 1041) 0))
(a3:ifnot 189)
;; begin then-clause 
(a3:eval (a3:bop-equal? (a3:idref-word 1041) (a3:idref-word 1040)))
(a3:ifnot 190)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1041 0)
)
(a3:goto 191)
;; end then-clause 
(a3:label 190)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-word 1042 (a3:idref-word 1040))
)
(a3:eval-noeffect (a3:assign-word 1040 (a3:idref-word 1041))
)
;; end else-clause 
(a3:label 191)
;; end of if statement 
;; end then-clause 
(a3:label 189)
;; end of if statement 
(a3:eval (a3:bop-logical-and (a3:bop-less? 0 (a3:idref-word 1041)) (a3:bop-less? (a3:idref-word 1041) 20)))
(a3:ifnot 192)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-acc (a3:bop-sub (a3:bop-add (a3:idref-word 1041) 1003) 1))
)
(a3:call-user-func 2125 (a3:idref-acc) 0)
(a3:call-user-func 2125 (a3:bop-add (a3:idref-acc) 100) 1)
;; end then-clause 
(a3:label 192)
;; end of if statement 
(a3:eval (a3:bop-logical-and (a3:bop-less? 0 (a3:idref-word 1042)) (a3:bop-less? (a3:idref-word 1042) 20)))
(a3:ifnot 193)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-acc (a3:bop-sub (a3:bop-add (a3:idref-word 1042) 1003) 1))
)
(a3:call-user-func 2125 (a3:idref-acc) 1)
(a3:call-user-func 2125 (a3:bop-add (a3:idref-acc) 100) 0)
;; end then-clause 
(a3:label 193)
;; end of if statement 
(a3:eval-noeffect (a3:assign-word 1041 0)
)
(a3:eval-noeffect (a3:assign-word 1042 0)
)
) ;; end of define-sub 
(a3:define-sub (10 1)
(a3:eval-noeffect (a3:assign-local 0 0))
(a3:call-user-func 4111 256 (a3:idref-word 1002))
(a3:call-user-func 4111 257 (a3:idref-word 1003))
(a3:call-user-func 4111 258 (a3:idref-word 1004))
(a3:call-user-func 4111 259 (a3:idref-word 1005))
(a3:call-user-func 4111 260 (a3:idref-word 1006))
(a3:call-user-func 4111 266 (a3:idref-word 1007))
(a3:call-user-func 4111 267 (a3:idref-word 1008))
(a3:call-user-func 4111 268 (a3:idref-word 1009))
(a3:call-user-func 4111 269 (a3:idref-word 1010))
(a3:call-user-func 4111 270 (a3:idref-word 1011))
(a3:call-user-func 4111 271 (a3:idref-word 1012))
(a3:call-user-func 4111 276 (a3:idref-word 1013))
(a3:call-user-func 4111 277 (a3:idref-word 1014))
(a3:call-user-func 4111 278 (a3:idref-word 1015))
(a3:call-user-func 4111 279 (a3:idref-word 1016))
(a3:call-user-func 4111 280 (a3:idref-word 1017))
(a3:call-user-func 4111 281 (a3:idref-word 1018))
(a3:call-user-func 4111 282 (a3:idref-word 1019))
(a3:call-user-func 4111 283 (a3:idref-word 1020))
(a3:eval-noeffect (a3:assign-local 0 284)
)
;; begin do-while 
(a3:label 194)
(a3:call-user-func 4111 (a3:idref-local 0) (a3:idref-word 1020))
(a3:eval-noeffect (a3:pre-incr-local 0)
)
(a3:eval (a3:bop-less-equal? (a3:idref-local 0) 305))
(a3:if 194)
;; end do-while 
(a3:call-user-func 6006 (a3:idref-word 1004))
) ;; end of define-sub 
