(ASSEMBLE.CLAUSE ( op 3 si ) 126
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (initialize.Yn 4)
    (put.Ai.variable.Yn 1 5)
    (get.Ai.structure 1 op 3)
    (unify.local.Yn 2)
    (unify.local.Yn 3)
    (unify.local.Yn 1)
    (load.choice.point)
    (store.variable.Yn 8)
    (either 11 38)
    (put.Ai.value.Yn 1 2)
    (is.a 24)
    (load.value.Yn 2)
    (load.pos.word 0)
    (not.less.than)
    (load.value.Yn 2)
    (load.pos.word 1200)
    (not.greater.than)
    (load.value.Yn 8)
    (cut.to.choice.point)
    (jump.to 49)
    (or.finally)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 5)
    (put.Ai.constant 1 321)
    (call 10 nerror2 3 si)
    (load.choice.point)
    (store.variable.Yn 7)
    (either 10 68)
    (put.Ai.value.Yn 1 3)
    (is.a 128)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (call 10 op_fixity 2 si)
    (load.value.Yn 7)
    (cut.to.choice.point)
    (jump.to 79)
    (or.finally)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 5)
    (put.Ai.constant 1 322)
    (call 9 nerror2 3 si)
    (load.choice.point)
    (store.variable.Yn 6)
    (either 9 112)
    (put.Ai.value.Yn 1 1)
    (is.a 254)
    (put.Ai.constant 3 2)
    (put.Ai.symbol 2 %.)
    (put.Ai.value.Yn 1 1)
    (functor)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 8 install_ops 5 si)
    (jump.to 127)
    (or.finally)
    (put.Ai.unsafe.Yn 5 5)
    (put.Ai.unsafe.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.list 1)
    (unify.local.Yn 1)
    (unify.nil)
    (call 3 install_ops 5 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( op 3 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( op_fixity 2 si ) 6
    (get.Ai.constant 1 xfx)
    (get.Ai.symbol 2 in)
    (proceed)
)

(ASSEMBLE.CLAUSE ( op_fixity 2 si ) 6
    (get.Ai.constant 1 xfy)
    (get.Ai.symbol 2 in)
    (proceed)
)

(ASSEMBLE.CLAUSE ( op_fixity 2 si ) 6
    (get.Ai.constant 1 yfx)
    (get.Ai.symbol 2 in)
    (proceed)
)

(ASSEMBLE.CLAUSE ( op_fixity 2 si ) 6
    (get.Ai.constant 1 fx)
    (get.Ai.symbol 2 pre)
    (proceed)
)

(ASSEMBLE.CLAUSE ( op_fixity 2 si ) 6
    (get.Ai.constant 1 fy)
    (get.Ai.symbol 2 pre)
    (proceed)
)

(ASSEMBLE.CLAUSE ( op_fixity 2 si ) 6
    (get.Ai.constant 1 xf)
    (get.Ai.symbol 2 post)
    (proceed)
)

(ASSEMBLE.CLAUSE ( op_fixity 2 si ) 6
    (get.Ai.constant 1 yf)
    (get.Ai.symbol 2 post)
    (proceed)
)

(ASSEMBLE.CLAUSE ( install_ops 5 si ) 18
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 5 1)
    (put.Ai.value.Yn 1 2)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.constant 1 324)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( install_ops 5 si ) 4
    (get.Ai.constant 1 NIL)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( install_ops 5 si ) 41
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 6)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (put.Ai.value.Yn 1 6)
    (is.a 128)
    (body.cut)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 6)
    (call 8 install_op 5 si)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart install_ops 5 si)
)

(ASSEMBLE.CLAUSE ( install_ops 5 si ) 35
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (head.cut)
    (put.Ai.value.Xn 3 1)
    (put.Ai.value.Yn 2 5)
    (put.Ai.constant 1 320)
    (call 8 nerror2 3 si)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart install_ops 5 si)
)

(ASSEMBLE.CLAUSE ( install_ops 5 si ) 9
    (put.Ai.value.Xn 2 5)
    (put.Ai.value.Xn 3 1)
    (put.Ai.constant 1 324)
    (execute nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( install_op 5 si ) 54
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 6)
    (get.Ai.variable.Yn 3 4)
    (get.Ai.variable.Yn 4 7)
    (get.Ai.variable.Yn 5 1)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 2 5)
    (put.Ai.value.Yn 1 2)
    (call 10 system_operator 3 si)
    (put.Ai.value.Yn 2 7)
    (put.Ai.value.Yn 1 3)
    (call 9 op_fixity 2 si)
    (body.cut)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 9 46)
    (put.Ai.value.Yn 2 6)
    (get.Ai.value.Yn 2 5)
    (put.Ai.value.Yn 2 4)
    (get.Ai.value.Yn 2 3)
    (load.value.Xn 1)
    (cut.to.choice.point)
    (progress)
    (or.finally)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.constant 1 323)
    (depart nerror2 3 si)
)

(ASSEMBLE.CLAUSE ( install_op 5 si ) 22
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.value.Xn 2 4)
    (put.Ai.variable.Yn 1 1)
    (call 5 op_fixity 2 si)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 user_operator 3)
    (unify.local.Yn 2)
    (unify.void 1)
    (unify.local.Yn 1)
    (call 3 retract_module 2 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( install_op 5 si ) 4
    (get.Ai.constant 2 0)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( install_op 5 si ) 14
    (put.Ai.value.Xn 7 1)
    (put.Ai.value.Xn 6 2)
    (put.Ai.symbol 2 si)
    (put.Ai.structure 1 user_operator 3)
    (unify.local.Xn 7)
    (unify.local.Xn 6)
    (unify.local.Xn 3)
    (execute assert_module 2 si)
)

(ASSEMBLE.CLAUSE ( precedence 2 si ) 61
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 5)
    (is.a 254)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.value.Yn 1 5)
    (functor)
    (load.value.Yn 2)
    (load.pos.word 0)
    (equal.to.else 38)
    (put.Ai.value.Yn 3 4)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 7 current_op 3 si)
    (put.Ai.value.Yn 1 1)
    (call 7 prefix_op_type 1 si)
    (jump.to 62)
    (load.value.Yn 2)
    (load.pos.word 1)
    (not.less.than)
    (load.value.Yn 2)
    (load.pos.word 2)
    (not.greater.than)
    (put.Ai.unsafe.Yn 3 4)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 5 current_op 3 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 arity_kind 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( precedence 2 si ) 4
    (get.Ai.constant 2 0)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arity_kind 2 si ) 7
    (get.Ai.constant 1 fx)
    (get.Ai.constant 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arity_kind 2 si ) 7
    (get.Ai.constant 1 fy)
    (get.Ai.constant 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arity_kind 2 si ) 7
    (get.Ai.constant 1 xf)
    (get.Ai.constant 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arity_kind 2 si ) 7
    (get.Ai.constant 1 yf)
    (get.Ai.constant 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arity_kind 2 si ) 7
    (get.Ai.constant 1 xfx)
    (get.Ai.constant 2 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arity_kind 2 si ) 7
    (get.Ai.constant 1 xfy)
    (get.Ai.constant 2 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arity_kind 2 si ) 7
    (get.Ai.constant 1 yfx)
    (get.Ai.constant 2 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( current_op 3 si ) 10
    (put.Ai.value.Xn 4 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.value.Xn 1 4)
    (execute system_operator 3 si)
)

(ASSEMBLE.CLAUSE ( current_op 3 si ) 17
    (put.Ai.value.Xn 5 1)
    (put.Ai.value.Xn 4 2)
    (put.Ai.value.Xn 6 3)
    (put.Ai.symbol 3 si)
    (put.Ai.void 2)
    (put.Ai.structure 1 user_operator 3)
    (unify.local.Xn 6)
    (unify.local.Xn 5)
    (unify.local.Xn 4)
    (execute clause_module 3 si)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %:%-)
    (get.Ai.constant 2 1200)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %-%-%>)
    (get.Ai.constant 2 1200)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %:%-)
    (get.Ai.constant 2 1200)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %?%-)
    (get.Ai.constant 2 1200)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 mode)
    (get.Ai.constant 2 1150)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 public)
    (get.Ai.constant 2 1150)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 dynamic)
    (get.Ai.constant 2 1150)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 multifile)
    (get.Ai.constant 2 1150)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %;)
    (get.Ai.constant 2 1100)
    (get.Ai.symbol 3 xfy)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %-%>)
    (get.Ai.constant 2 1050)
    (get.Ai.symbol 3 xfy)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %,)
    (get.Ai.constant 2 1000)
    (get.Ai.symbol 3 xfy)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %\%+)
    (get.Ai.constant 2 900)
    (get.Ai.symbol 3 fy)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 spy)
    (get.Ai.constant 2 900)
    (get.Ai.symbol 3 fy)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 nospy)
    (get.Ai.constant 2 900)
    (get.Ai.symbol 3 fy)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %=)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 is)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %=%.%.)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %=%=)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %\%=%=)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %@%<)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %@%>)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %@%=%<)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %@%>%=)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %=%:%=)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %=%\%=)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %<)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %>)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %=%<)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %>%=)
    (get.Ai.constant 2 700)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %+)
    (get.Ai.constant 2 500)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %-)
    (get.Ai.constant 2 500)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %\%/)
    (get.Ai.constant 2 500)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %/%\)
    (get.Ai.constant 2 500)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %+)
    (get.Ai.constant 2 500)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %-)
    (get.Ai.constant 2 500)
    (get.Ai.symbol 3 fx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %/)
    (get.Ai.constant 2 400)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %/%/)
    (get.Ai.constant 2 400)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %*)
    (get.Ai.constant 2 400)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %<%<)
    (get.Ai.constant 2 400)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %>%>)
    (get.Ai.constant 2 400)
    (get.Ai.symbol 3 yfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 mod)
    (get.Ai.constant 2 300)
    (get.Ai.symbol 3 xfx)
    (proceed)
)

(ASSEMBLE.CLAUSE ( system_operator 3 si ) 9
    (get.Ai.constant 1 %^)
    (get.Ai.constant 2 200)
    (get.Ai.symbol 3 xfy)
    (proceed)
)

STOP