(ASSEMBLE.CLAUSE ( len 4 format ) 9
    (start.calling QP%.LEN 3)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (call.lisp 1)
    (unify.local.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( cprint 3 format ) 9
    (start.calling QP%.CPRINT 3)
    (send.direct.Ai 1)
    (send.direct.Ai 2)
    (send.direct.Ai 3)
    (call.lisp 1)
    (unify.void 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( format 3 format ) 28
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 1 1)
    (call 7 current_output 1 si)
    (put.Ai.value.Yn 1 4)
    (call 6 set_output 1 si)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 4 format 2 format)
    (put.Ai.unsafe.Yn 1 1)
    (depart set_output 1 si)
)

(ASSEMBLE.CLAUSE ( format 2 format ) 21
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (is.a 128)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 3)
    (call 5 name 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart format_list1 2 format)
)

(ASSEMBLE.CLAUSE ( format 2 format ) 23
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (load.choice.point)
    (store.variable.Yn 3)
    (either 6 18)
    (put.Ai.value.Yn 1 2)
    (is.a 128)
    (load.value.Yn 3)
    (cut.to.choice.point)
    (fail)
    (or.finally)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart format_list1 2 format)
)

(ASSEMBLE.CLAUSE ( format 2 format ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( format_list1 2 format ) 9
    (get.Ai.constant 1 NIL)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.nil 2)
    (execute format_list2 2 format)
)

(ASSEMBLE.CLAUSE ( format_list1 2 format ) 11
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.list 2)
    (unify.value.Xn 4)
    (unify.value.Xn 3)
    (execute format_list2 2 format)
)

(ASSEMBLE.CLAUSE ( format_list1 2 format ) 9
    (put.Ai.value.Xn 3 2)
    (put.Ai.list 2)
    (unify.local.Xn 1)
    (unify.nil)
    (put.Ai.value.Xn 1 3)
    (execute format_list2 2 format)
)

(ASSEMBLE.CLAUSE ( format_list2 2 format ) 127
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 6 1)
    (put.Ai.variable.Yn 5 8)
    (put.Ai.variable.Yn 4 9)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (call 16 valid 6 format)
    (body.cut)
    (put.Ai.variable.Yn 1 10)
    (call 16 current_output 1 si)
    (put.Ai.constant 2 1)
    (put.Ai.variable.Yn 1 12)
    (call 16 fileerrors 2 si)
    (load.choice.point)
    (store.variable.Yn 13)
    (either 16 56)
    (put.Ai.variable.Yn 1 6)
    (call 16 open_null_stream 1 si)
    (load.value.Yn 13)
    (cut.to.choice.point)
    (put.Ai.value.Yn 2 12)
    (put.Ai.void 1)
    (call 15 fileerrors 2 si)
    (jump.to 68)
    (or.finally)
    (put.Ai.unsafe.Yn 2 12)
    (put.Ai.void 1)
    (call 14 fileerrors 2 si)
    (put.Ai.variable.Yn 1 6)
    (get.Ai.constant 1 user_error)
    (put.Ai.variable.Yn 2 11)
    (put.Ai.value.Yn 1 10)
    (call 14 line_position 2 si)
    (put.Ai.value.Yn 7 1)
    (put.Ai.unsafe.Yn 6 11)
    (put.Ai.value.Yn 5 6)
    (put.Ai.unsafe.Yn 4 10)
    (put.Ai.unsafe.Yn 3 9)
    (put.Ai.unsafe.Yn 2 8)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 output 7 format)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 close 1 si)
    (load.choice.point)
    (store.variable.Yn 5)
    (either 8 126)
    (put.Ai.value.Yn 1 1)
    (is.a 254)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (put.Ai.value.Yn 2 4)
    (put.Ai.variable.Yn 1 3)
    (call 6 name 2 si)
    (put.Ai.structure 2 format 2)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 nerror 2 si)
    (jump.to 127)
    (or.finally)
    (body.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( valid 6 format ) 14
    (put.Ai.value.Xn 7 5)
    (put.Ai.value.Xn 10 6)
    (put.Ai.constant 9 0)
    (put.Ai.nil 8)
    (put.Ai.nil 6)
    (put.Ai.value.Xn 5 4)
    (put.Ai.nil 4)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 10 format ) 16
    (get.Ai.constant 1 NIL)
    (get.Ai.nil 2)
    (get.Ai.value.Xn 4 3)
    (get.Ai.list 5)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (get.Ai.value.Xn 6 2)
    (get.Ai.value.Xn 8 7)
    (get.Ai.value.Xn 9 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( valid 10 format ) 36
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 4 3)
    (get.Ai.list 5)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (get.Ai.value.Xn 6 2)
    (get.Ai.value.Xn 8 7)
    (get.Ai.value.Xn 9 1)
    (allocate)
    (get.Ai.variable.Yn 10 1)
    (head.cut)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 36)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 501)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( valid 10 format ) 30
    (get.Ai.list 1)
    (unify.constant 126)
    (unify.list)
    (unify.variable.Xn 1)
    (unify.variable.Xn 12)
    (put.Ai.value.Xn 11 10)
    (head.cut)
    (put.Ai.value.Xn 10 9)
    (put.Ai.value.Xn 9 8)
    (put.Ai.value.Xn 8 7)
    (put.Ai.value.Xn 7 6)
    (put.Ai.value.Xn 6 5)
    (put.Ai.value.Xn 5 4)
    (put.Ai.value.Xn 4 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 12)
    (execute valid 11 format)
)

(ASSEMBLE.CLAUSE ( valid 10 format ) 31
    (get.Ai.list 1)
    (unify.constant 13)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 11 10)
    (head.cut)
    (put.Ai.value.Xn 10 9)
    (put.Ai.value.Xn 9 8)
    (put.Ai.value.Xn 8 7)
    (put.Ai.value.Xn 7 6)
    (put.Ai.value.Xn 6 5)
    (put.Ai.value.Xn 5 4)
    (put.Ai.value.Xn 4 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 110)
    (execute valid 11 format)
)

(ASSEMBLE.CLAUSE ( valid 10 format ) 8
    (get.Ai.list 1)
    (unify.variable.Xn 11)
    (unify.variable.Xn 1)
    (get.Ai.list 3)
    (unify.value.Xn 11)
    (unify.variable.Xn 3)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 78
    (get.Ai.constant 1 42)
    (get.Ai.list 2)
    (allocate)
    (unify.variable.Yn 3)
    (unify.variable.Yn 4)
    (put.Ai.value.Xn 1 3)
    (get.Ai.variable.Yn 4 6)
    (get.Ai.variable.Yn 5 7)
    (get.Ai.variable.Yn 6 8)
    (get.Ai.variable.Yn 7 9)
    (get.Ai.variable.Yn 8 10)
    (get.Ai.variable.Yn 9 11)
    (get.Ai.variable.Yn 10 12)
    (get.Ai.variable.Yn 11 13)
    (head.cut)
    (put.Ai.value.Yn 4 13)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.variable.Yn 2 14)
    (call 17 check_int 4 format)
    (put.Ai.symbol 6 numeric)
    (put.Ai.variable.Yn 5 2)
    (put.Ai.void 4)
    (put.Ai.void 3)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 17 specifier 6 format)
    (put.Ai.unsafe.Yn 14 14)
    (put.Ai.value.Yn 13 13)
    (put.Ai.value.Yn 12 12)
    (put.Ai.value.Yn 11 11)
    (put.Ai.value.Yn 10 10)
    (put.Ai.value.Yn 9 9)
    (put.Ai.value.Yn 8 8)
    (put.Ai.value.Yn 7 7)
    (put.Ai.value.Yn 6 6)
    (put.Ai.unsafe.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart fillup 14 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 37
    (get.Ai.constant 1 43)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.list 4)
    (unify.constant -43)
    (unify.list)
    (unify.constant 8)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 4 5)
    (get.Ai.list 6)
    (unify.variable.Xn 12)
    (unify.variable.Xn 5)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (get.Ai.value.Xn 10 12)
    (put.Ai.value.Xn 10 11)
    (head.cut)
    (put.Ai.constant 9 0)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 37
    (get.Ai.constant 1 78)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.list 4)
    (unify.constant -78)
    (unify.list)
    (unify.constant 1)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 4 5)
    (get.Ai.list 6)
    (unify.variable.Xn 12)
    (unify.variable.Xn 5)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (get.Ai.value.Xn 10 12)
    (put.Ai.value.Xn 10 11)
    (head.cut)
    (put.Ai.constant 9 0)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 38
    (get.Ai.constant 1 96)
    (get.Ai.list 2)
    (unify.variable.Xn 12)
    (unify.list)
    (unify.constant 116)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 2 3)
    (get.Ai.list 4)
    (unify.constant -116)
    (unify.list)
    (unify.value.Xn 12)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 4 5)
    (put.Ai.value.Xn 5 6)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (head.cut)
    (load.value.Xn 10)
    (add.pos.word 1)
    (store.variable.Xn 9)
    (put.Ai.value.Xn 10 11)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 37
    (get.Ai.constant 1 110)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.list 4)
    (unify.constant -110)
    (unify.list)
    (unify.constant 1)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 4 5)
    (get.Ai.list 6)
    (unify.variable.Xn 12)
    (unify.variable.Xn 5)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (get.Ai.value.Xn 10 12)
    (put.Ai.value.Xn 10 11)
    (head.cut)
    (put.Ai.constant 9 0)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 35
    (get.Ai.constant 1 116)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.list 4)
    (unify.constant -116)
    (unify.list)
    (unify.constant 32)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 4 5)
    (put.Ai.value.Xn 5 6)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (head.cut)
    (load.value.Xn 10)
    (add.pos.word 1)
    (store.variable.Xn 9)
    (put.Ai.value.Xn 10 11)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 37
    (get.Ai.constant 1 124)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.list 4)
    (unify.constant -124)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 4 5)
    (get.Ai.list 6)
    (unify.variable.Xn 12)
    (unify.variable.Xn 5)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (get.Ai.value.Xn 10 12)
    (put.Ai.value.Xn 10 11)
    (head.cut)
    (put.Ai.constant 9 0)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 29
    (get.Ai.constant 1 126)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.list 4)
    (unify.constant 126)
    (unify.variable.Xn 3)
    (put.Ai.value.Xn 4 5)
    (put.Ai.value.Xn 5 6)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (put.Ai.value.Xn 9 10)
    (put.Ai.value.Xn 10 11)
    (head.cut)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 101
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 16)
    (get.Ai.variable.Yn 4 12)
    (get.Ai.variable.Yn 5 4)
    (get.Ai.variable.Yn 6 5)
    (get.Ai.variable.Yn 7 6)
    (get.Ai.variable.Yn 8 11)
    (get.Ai.variable.Yn 9 7)
    (get.Ai.variable.Yn 10 8)
    (get.Ai.variable.Yn 11 9)
    (put.Ai.void 6)
    (put.Ai.variable.Yn 5 15)
    (put.Ai.variable.Yn 4 3)
    (put.Ai.variable.Yn 3 13)
    (put.Ai.symbol 2 atom)
    (call 19 specifier 6 format)
    (body.cut)
    (put.Ai.value.Yn 5 9)
    (put.Ai.variable.Yn 4 2)
    (put.Ai.variable.Yn 3 10)
    (put.Ai.value.Yn 2 16)
    (put.Ai.unsafe.Yn 1 15)
    (call 17 check_type 5 format)
    (load.choice.point)
    (store.variable.Yn 14)
    (either 17 73)
    (put.Ai.value.Yn 1 9)
    (is.a 254)
    (load.value.Yn 14)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 4)
    (get.Ai.value.Yn 1 12)
    (put.Ai.value.Yn 1 5)
    (get.Ai.list 1)
    (unify.local.Yn 8)
    (unify.local.Yn 6)
    (put.Ai.value.Yn 1 7)
    (get.Ai.value.Yn 1 11)
    (progress)
    (or.finally)
    (put.Ai.unsafe.Yn 1 13)
    (get.Ai.value.Yn 1 12)
    (put.Ai.value.Yn 1 11)
    (get.Ai.list 1)
    (unify.local.Yn 10)
    (unify.variable.Xn 7)
    (put.Ai.value.Yn 10 9)
    (put.Ai.value.Yn 9 8)
    (put.Ai.value.Yn 8 7)
    (put.Ai.value.Yn 6 6)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.unsafe.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart valid 10 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 38
    (put.Ai.value.Xn 12 2)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 3 4)
    (put.Ai.value.Xn 4 5)
    (put.Ai.value.Xn 5 6)
    (put.Ai.value.Xn 6 7)
    (put.Ai.value.Xn 7 8)
    (put.Ai.value.Xn 8 9)
    (put.Ai.value.Xn 9 10)
    (put.Ai.value.Xn 10 11)
    (load.value.Xn 1)
    (load.pos.word 48)
    (subtract)
    (store.variable.Xn 11)
    (load.value.Xn 11)
    (load.pos.word 10)
    (less.than)
    (load.value.Xn 11)
    (load.pos.word 0)
    (not.less.than)
    (head.cut)
    (put.Ai.value.Xn 1 12)
    (execute valid_integer 11 format)
)

(ASSEMBLE.CLAUSE ( valid 11 format ) 32
    (get.Ai.value.Xn 5 4)
    (get.Ai.list 6)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (get.Ai.value.Xn 7 2)
    (get.Ai.value.Xn 9 8)
    (get.Ai.value.Xn 10 1)
    (allocate)
    (get.Ai.variable.Yn 11 1)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 32)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 503)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( valid_integer 11 format ) 26
    (get.Ai.list 1)
    (unify.variable.Xn 12)
    (unify.variable.Xn 1)
    (load.value.Xn 12)
    (load.pos.word 48)
    (subtract)
    (store.variable.Xn 12)
    (load.value.Xn 12)
    (load.pos.word 10)
    (less.than)
    (load.value.Xn 12)
    (load.pos.word 0)
    (not.less.than)
    (head.cut)
    (load.value.Xn 11)
    (load.pos.word 10)
    (multiply)
    (load.value.Xn 12)
    (add)
    (store.variable.Xn 11)
    (execute valid_integer 11 format)
)

(ASSEMBLE.CLAUSE ( valid_integer 11 format ) 68
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 3)
    (unify.variable.Yn 4)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 6)
    (get.Ai.variable.Yn 4 7)
    (get.Ai.variable.Yn 5 8)
    (get.Ai.variable.Yn 6 9)
    (get.Ai.variable.Yn 7 10)
    (get.Ai.variable.Yn 8 11)
    (get.Ai.variable.Yn 9 12)
    (get.Ai.variable.Yn 10 13)
    (get.Ai.variable.Yn 11 14)
    (put.Ai.symbol 6 numeric)
    (put.Ai.variable.Yn 5 2)
    (put.Ai.void 4)
    (put.Ai.void 3)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 17 specifier 6 format)
    (body.cut)
    (put.Ai.value.Yn 14 14)
    (put.Ai.value.Yn 13 13)
    (put.Ai.value.Yn 12 12)
    (put.Ai.value.Yn 11 11)
    (put.Ai.value.Yn 10 10)
    (put.Ai.value.Yn 9 9)
    (put.Ai.value.Yn 8 8)
    (put.Ai.value.Yn 7 7)
    (put.Ai.value.Yn 6 6)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart fillup 14 format)
)

(ASSEMBLE.CLAUSE ( valid_integer 11 format ) 32
    (get.Ai.value.Xn 4 3)
    (get.Ai.list 5)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (get.Ai.value.Xn 6 2)
    (get.Ai.value.Xn 8 7)
    (get.Ai.value.Xn 9 1)
    (allocate)
    (get.Ai.variable.Yn 10 1)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 32)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 503)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( fillup 14 format ) 98
    (get.Ai.constant 1 atom)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 13)
    (get.Ai.variable.Yn 4 1)
    (put.Ai.value.Xn 2 5)
    (get.Ai.variable.Yn 6 12)
    (get.Ai.variable.Yn 7 3)
    (get.Ai.variable.Yn 8 4)
    (get.Ai.variable.Yn 9 5)
    (get.Ai.variable.Yn 10 10)
    (get.Ai.variable.Yn 11 6)
    (get.Ai.variable.Yn 12 7)
    (get.Ai.variable.Yn 13 8)
    (get.Ai.variable.Yn 14 11)
    (head.cut)
    (put.Ai.value.Yn 5 8)
    (put.Ai.variable.Yn 4 2)
    (put.Ai.variable.Yn 3 9)
    (call 17 check_type 5 format)
    (load.choice.point)
    (store.variable.Yn 14)
    (either 17 66)
    (put.Ai.value.Yn 1 8)
    (is.a 254)
    (load.value.Yn 14)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 12)
    (put.Ai.value.Yn 1 4)
    (get.Ai.list 1)
    (unify.local.Yn 7)
    (unify.local.Yn 5)
    (put.Ai.value.Yn 1 6)
    (get.Ai.value.Yn 1 10)
    (progress)
    (or.finally)
    (load.value.Yn 13)
    (minus)
    (store.variable.Xn 1)
    (put.Ai.value.Yn 2 12)
    (get.Ai.list 2)
    (unify.value.Xn 1)
    (unify.list)
    (unify.local.Yn 11)
    (unify.variable.Xn 3)
    (put.Ai.value.Yn 1 10)
    (get.Ai.list 1)
    (unify.local.Yn 9)
    (unify.variable.Xn 7)
    (put.Ai.value.Yn 10 8)
    (put.Ai.value.Yn 9 7)
    (put.Ai.value.Yn 8 6)
    (put.Ai.value.Yn 6 5)
    (put.Ai.value.Yn 5 4)
    (put.Ai.value.Yn 4 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart valid 10 format)
)

(ASSEMBLE.CLAUSE ( fillup 14 format ) 38
    (get.Ai.constant 1 fill)
    (put.Ai.value.Xn 1 4)
    (put.Ai.value.Xn 2 5)
    (get.Ai.list 6)
    (unify.variable.Xn 16)
    (unify.list)
    (unify.variable.Xn 17)
    (unify.variable.Xn 15)
    (put.Ai.value.Xn 4 7)
    (put.Ai.value.Xn 5 8)
    (put.Ai.value.Xn 6 9)
    (put.Ai.value.Xn 7 10)
    (put.Ai.value.Xn 8 11)
    (put.Ai.value.Xn 10 13)
    (get.Ai.value.Xn 14 17)
    (head.cut)
    (load.value.Xn 3)
    (minus)
    (store.value.Xn 16)
    (load.value.Xn 12)
    (add.pos.word 1)
    (store.variable.Xn 9)
    (put.Ai.value.Xn 3 15)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( fillup 14 format ) 40
    (get.Ai.constant 1 mark)
    (put.Ai.value.Xn 1 4)
    (put.Ai.value.Xn 2 5)
    (get.Ai.list 6)
    (unify.variable.Xn 16)
    (unify.list)
    (unify.variable.Xn 17)
    (unify.variable.Xn 15)
    (put.Ai.value.Xn 4 7)
    (get.Ai.list 8)
    (unify.variable.Xn 18)
    (unify.variable.Xn 5)
    (put.Ai.value.Xn 6 9)
    (put.Ai.value.Xn 7 10)
    (put.Ai.value.Xn 8 11)
    (get.Ai.value.Xn 12 18)
    (put.Ai.value.Xn 10 13)
    (get.Ai.value.Xn 14 17)
    (head.cut)
    (load.value.Xn 3)
    (minus)
    (store.value.Xn 16)
    (put.Ai.constant 9 0)
    (put.Ai.value.Xn 3 15)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( fillup 14 format ) 32
    (put.Ai.value.Xn 1 4)
    (put.Ai.value.Xn 2 5)
    (get.Ai.list 6)
    (unify.variable.Xn 16)
    (unify.list)
    (unify.variable.Xn 17)
    (unify.variable.Xn 15)
    (put.Ai.value.Xn 4 7)
    (put.Ai.value.Xn 5 8)
    (put.Ai.value.Xn 6 9)
    (put.Ai.value.Xn 7 10)
    (put.Ai.value.Xn 8 11)
    (put.Ai.value.Xn 9 12)
    (put.Ai.value.Xn 10 13)
    (get.Ai.value.Xn 14 17)
    (load.value.Xn 3)
    (minus)
    (store.value.Xn 16)
    (put.Ai.value.Xn 3 15)
    (execute valid 10 format)
)

(ASSEMBLE.CLAUSE ( output 7 format ) 4
    (get.Ai.constant 1 NIL)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( output 7 format ) 40
    (get.Ai.nil 3)
    (allocate)
    (get.Ai.variable.Yn 4 3)
    (get.Ai.variable.Yn 5 4)
    (get.Ai.variable.Yn 6 5)
    (get.Ai.variable.Yn 7 6)
    (put.Ai.value.Yn 7 6)
    (put.Ai.value.Yn 6 5)
    (put.Ai.nil 5)
    (put.Ai.variable.Yn 4 2)
    (put.Ai.value.Xn 3 2)
    (put.Ai.variable.Yn 2 1)
    (call 9 output_field 7 format)
    (body.cut)
    (put.Ai.value.Yn 7 6)
    (put.Ai.value.Yn 6 5)
    (put.Ai.value.Yn 5 4)
    (put.Ai.value.Yn 4 3)
    (put.Ai.nil 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart output 7 format)
)

(ASSEMBLE.CLAUSE ( output 7 format ) 98
    (allocate)
    (get.Ai.variable.Yn 1 8)
    (get.Ai.variable.Yn 2 9)
    (get.Ai.list 3)
    (unify.variable.Yn 12)
    (unify.variable.Yn 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (get.Ai.variable.Yn 6 11)
    (get.Ai.variable.Yn 7 7)
    (load.value.Yn 12)
    (load.pos.word 0)
    (equal.to.else 30)
    (put.Ai.variable.Yn 1 10)
    (get.Ai.constant 1 NIL)
    (jump.to 59)
    (put.Ai.value.Yn 1 5)
    (call 15 set_output 1 si)
    (call 15 nl 0 si)
    (put.Ai.constant 6 0)
    (put.Ai.value.Yn 5 12)
    (put.Ai.variable.Yn 4 10)
    (put.Ai.value.Yn 3 11)
    (put.Ai.value.Yn 2 9)
    (put.Ai.value.Yn 1 8)
    (call 14 find_fill_length 6 format)
    (put.Ai.value.Yn 1 4)
    (call 14 set_output 1 si)
    (put.Ai.value.Yn 7 7)
    (put.Ai.value.Yn 6 11)
    (put.Ai.unsafe.Yn 5 10)
    (put.Ai.variable.Yn 4 2)
    (put.Ai.value.Yn 3 9)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 8)
    (call 10 output_field 7 format)
    (body.cut)
    (put.Ai.variable.Yn 2 6)
    (put.Ai.value.Yn 1 4)
    (call 10 line_position 2 si)
    (put.Ai.value.Yn 7 7)
    (put.Ai.unsafe.Yn 6 6)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart output 7 format)
)

(ASSEMBLE.CLAUSE ( output_field 7 format ) 5
    (get.Ai.constant 1 NIL)
    (get.Ai.nil 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( output_field 7 format ) 28
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.list)
    (unify.variable.Xn 10)
    (unify.variable.Xn 11)
    (put.Ai.value.Xn 8 6)
    (put.Ai.value.Xn 9 7)
    (load.value.Xn 1)
    (load.pos.word 0)
    (less.than)
    (head.cut)
    (put.Ai.value.Xn 7 5)
    (put.Ai.value.Xn 6 4)
    (put.Ai.value.Xn 5 3)
    (put.Ai.value.Xn 4 2)
    (put.Ai.value.Xn 3 11)
    (put.Ai.value.Xn 2 10)
    (execute do_output 9 format)
)

(ASSEMBLE.CLAUSE ( output_field 7 format ) 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)
    (get.Ai.variable.Yn 6 6)
    (get.Ai.variable.Yn 7 7)
    (call 10 put 1 si)
    (put.Ai.value.Yn 7 7)
    (put.Ai.value.Yn 6 6)
    (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 output_field 7 format)
)

(ASSEMBLE.CLAUSE ( do_output 9 format ) 62
    (get.Ai.constant 1 -43)
    (allocate)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.value.Xn 4 3)
    (get.Ai.value.Xn 6 5)
    (get.Ai.variable.Yn 8 6)
    (get.Ai.variable.Yn 9 3)
    (head.cut)
    (put.Ai.variable.Yn 1 7)
    (call 10 current_output 1 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 line_position 2 si)
    (load.value.Yn 6)
    (load.value.Yn 5)
    (add)
    (store.variable.Yn 2)
    (load.value.Yn 2)
    (load.value.Yn 1)
    (less.than.else 55)
    (load.choice.point)
    (store.variable.Yn 4)
    (either 7 53)
    (put.Ai.value.Yn 1 3)
    (is.a 1)
    (load.value.Yn 4)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 504)
    (progress)
    (or.finally)
    (progress)
    (load.value.Yn 2)
    (load.value.Yn 1)
    (subtract)
    (store.variable.Xn 1)
    (put.Ai.constant 2 32)
    (depart write_many 2 format)
)

(ASSEMBLE.CLAUSE ( do_output 9 format ) 43
    (get.Ai.constant 1 -78)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.value.Xn 4 3)
    (get.Ai.value.Xn 6 5)
    (head.cut)
    (put.Ai.variable.Yn 1 4)
    (call 7 current_output 1 si)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 line_position 2 si)
    (load.value.Yn 3)
    (load.pos.word 0)
    (equal.to.else 36)
    (load.value.Yn 2)
    (add.neg.word -1)
    (store.variable.Yn 1)
    (jump.to 38)
    (load.value.Yn 2)
    (store.variable.Yn 1)
    (put.Ai.constant 2 13)
    (put.Ai.value.Yn 1 1)
    (depart write_many 2 format)
)

(ASSEMBLE.CLAUSE ( do_output 9 format ) 15
    (get.Ai.constant 1 -110)
    (put.Ai.value.Xn 1 2)
    (get.Ai.value.Xn 4 3)
    (get.Ai.value.Xn 6 5)
    (head.cut)
    (put.Ai.constant 2 13)
    (execute write_many 2 format)
)

(ASSEMBLE.CLAUSE ( do_output 9 format ) 20
    (get.Ai.constant 1 -116)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 2 4)
    (put.Ai.value.Xn 3 5)
    (put.Ai.value.Xn 4 6)
    (get.Ai.nil 7)
    (put.Ai.value.Xn 6 8)
    (put.Ai.value.Xn 7 9)
    (head.cut)
    (put.Ai.nil 5)
    (execute output_field 7 format)
)

(ASSEMBLE.CLAUSE ( do_output 9 format ) 39
    (get.Ai.constant 1 -116)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (get.Ai.variable.Yn 4 2)
    (get.Ai.variable.Yn 5 3)
    (get.Ai.variable.Yn 6 4)
    (get.Ai.list 7)
    (unify.variable.Xn 1)
    (unify.variable.Yn 5)
    (get.Ai.variable.Yn 8 6)
    (get.Ai.variable.Yn 9 7)
    (head.cut)
    (call 10 write_many 2 format)
    (put.Ai.value.Yn 7 7)
    (put.Ai.value.Yn 6 6)
    (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 output_field 7 format)
)

(ASSEMBLE.CLAUSE ( do_output 9 format ) 56
    (get.Ai.constant 1 -124)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.value.Xn 4 3)
    (get.Ai.value.Xn 6 5)
    (get.Ai.variable.Yn 9 3)
    (head.cut)
    (put.Ai.variable.Yn 1 5)
    (call 8 current_output 1 si)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.unsafe.Yn 1 5)
    (call 7 line_position 2 si)
    (load.value.Yn 2)
    (load.value.Yn 1)
    (less.than.else 49)
    (load.choice.point)
    (store.variable.Yn 4)
    (either 7 47)
    (put.Ai.value.Yn 1 3)
    (is.a 1)
    (load.value.Yn 4)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 504)
    (progress)
    (or.finally)
    (progress)
    (load.value.Yn 2)
    (load.value.Yn 1)
    (subtract)
    (store.variable.Xn 1)
    (put.Ai.constant 2 32)
    (depart write_many 2 format)
)

(ASSEMBLE.CLAUSE ( do_output 9 format ) 37
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (get.Ai.variable.Yn 4 2)
    (get.Ai.list 5)
    (unify.variable.Xn 3)
    (unify.variable.Yn 3)
    (get.Ai.variable.Yn 6 4)
    (get.Ai.variable.Yn 7 5)
    (get.Ai.variable.Yn 8 6)
    (get.Ai.variable.Yn 9 7)
    (put.Ai.value.Yn 4 7)
    (call 10 write_to_user 4 format)
    (put.Ai.value.Yn 7 7)
    (put.Ai.value.Yn 6 6)
    (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 output_field 7 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 6 format ) 12
    (get.Ai.constant 1 NIL)
    (put.Ai.value.Xn 1 4)
    (put.Ai.value.Xn 2 5)
    (put.Ai.value.Xn 3 6)
    (head.cut)
    (execute make_fill 3 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 6 format ) 26
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.list)
    (unify.variable.Xn 9)
    (unify.variable.Xn 10)
    (put.Ai.value.Xn 7 5)
    (put.Ai.value.Xn 8 6)
    (load.value.Xn 1)
    (load.pos.word 0)
    (less.than)
    (head.cut)
    (put.Ai.value.Xn 6 4)
    (put.Ai.value.Xn 5 3)
    (put.Ai.value.Xn 4 2)
    (put.Ai.value.Xn 3 10)
    (put.Ai.value.Xn 2 9)
    (execute find_fill_length 8 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 6 format ) 9
    (get.Ai.list 1)
    (unify.void 1)
    (unify.variable.Xn 1)
    (load.value.Xn 6)
    (add.pos.word 1)
    (store.variable.Xn 6)
    (execute find_fill_length 6 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 8 format ) 37
    (get.Ai.constant 1 -43)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 6 1)
    (get.Ai.variable.Yn 7 2)
    (get.Ai.variable.Yn 8 5)
    (head.cut)
    (put.Ai.variable.Yn 1 6)
    (call 9 current_output 1 si)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 line_position 2 si)
    (load.value.Yn 5)
    (load.value.Yn 4)
    (add)
    (store.variable.Xn 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart make_fill 4 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 8 format ) 12
    (get.Ai.constant 1 -78)
    (put.Ai.value.Xn 1 6)
    (put.Ai.value.Xn 2 7)
    (put.Ai.value.Xn 3 8)
    (head.cut)
    (execute make_fill 3 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 8 format ) 18
    (get.Ai.constant 1 -116)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 2 4)
    (put.Ai.value.Xn 3 5)
    (put.Ai.value.Xn 4 6)
    (put.Ai.value.Xn 5 7)
    (put.Ai.value.Xn 6 8)
    (head.cut)
    (execute find_fill_length 6 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 8 format ) 12
    (get.Ai.constant 1 -110)
    (put.Ai.value.Xn 1 6)
    (put.Ai.value.Xn 2 7)
    (put.Ai.value.Xn 3 8)
    (head.cut)
    (execute make_fill 3 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 8 format ) 39
    (get.Ai.constant 1 -124)
    (allocate)
    (get.Ai.variable.Yn 6 1)
    (get.Ai.variable.Yn 7 2)
    (get.Ai.variable.Yn 8 5)
    (head.cut)
    (load.value.Xn 2)
    (load.value.Xn 5)
    (subtract)
    (store.variable.Yn 3)
    (put.Ai.variable.Yn 1 6)
    (call 9 current_output 1 si)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 line_position 2 si)
    (load.value.Yn 5)
    (load.value.Yn 4)
    (add)
    (store.variable.Xn 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart make_fill 4 format)
)

(ASSEMBLE.CLAUSE ( find_fill_length 8 format ) 35
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (get.Ai.list 4)
    (unify.variable.Xn 3)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 5 3)
    (get.Ai.variable.Yn 6 4)
    (get.Ai.variable.Yn 7 5)
    (get.Ai.variable.Yn 8 7)
    (put.Ai.variable.Yn 4 6)
    (call 10 write_to_null 4 format)
    (load.value.Yn 7)
    (load.value.Yn 6)
    (add)
    (store.variable.Xn 6)
    (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 find_fill_length 6 format)
)

(ASSEMBLE.CLAUSE ( make_fill 3 format ) 31
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 4)
    (put.Ai.variable.Yn 1 5)
    (call 8 current_output 1 si)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.unsafe.Yn 1 5)
    (call 7 line_position 2 si)
    (load.value.Yn 4)
    (load.value.Yn 3)
    (add)
    (store.variable.Xn 3)
    (put.Ai.value.Xn 4 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart make_fill 4 format)
)

(ASSEMBLE.CLAUSE ( make_fill 4 format ) 7
    (get.Ai.constant 1 NIL)
    (get.Ai.constant 2 0)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( make_fill 4 format ) 41
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 1)
    (load.value.Xn 3)
    (load.value.Xn 4)
    (subtract)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (load.pos.word 0)
    (not.less.than.else 26)
    (load.value.Xn 1)
    (load.value.Yn 1)
    (integer.divide)
    (store.variable.Yn 4)
    (load.value.Xn 1)
    (load.value.Yn 1)
    (modulus)
    (store.variable.Yn 2)
    (jump.to 32)
    (load.pos.word 0)
    (store.variable.Yn 4)
    (load.pos.word 0)
    (store.variable.Yn 2)
    (put.Ai.value.Yn 5 4)
    (put.Ai.value.Yn 4 3)
    (put.Ai.nil 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart build_fill 5 format)
)

(ASSEMBLE.CLAUSE ( build_fill 5 format ) 6
    (get.Ai.constant 1 0)
    (get.Ai.value.Xn 4 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( build_fill 5 format ) 21
    (get.Ai.constant 2 0)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 6 5)
    (load.value.Xn 1)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (put.Ai.value.Xn 5 6)
    (put.Ai.list 3)
    (unify.local.Xn 6)
    (unify.local.Xn 2)
    (put.Ai.constant 2 0)
    (execute build_fill 5 format)
)

(ASSEMBLE.CLAUSE ( build_fill 5 format ) 19
    (put.Ai.value.Xn 6 3)
    (load.value.Xn 1)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (load.value.Xn 2)
    (add.neg.word -1)
    (store.variable.Xn 2)
    (load.value.Xn 5)
    (add.pos.word 1)
    (store.variable.Xn 7)
    (put.Ai.list 3)
    (unify.value.Xn 7)
    (unify.local.Xn 6)
    (execute build_fill 5 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 105
    (get.Ai.constant 1 -68)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 7)
    (load.value.Yn 7)
    (load.pos.word 0)
    (less.than.else 26)
    (load.pos.word 45)
    (store.variable.Xn 1)
    (call 10 put 1 si)
    (load.value.Yn 7)
    (minus)
    (store.variable.Yn 6)
    (jump.to 28)
    (load.value.Yn 7)
    (store.variable.Yn 6)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 6)
    (call 8 name 2 si)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.value.Yn 1 2)
    (call 8 length 2 si)
    (load.value.Yn 3)
    (load.pos.word 0)
    (equal.to.else 54)
    (put.Ai.void 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (depart write_clist 3 format)
    (load.value.Yn 3)
    (load.value.Yn 4)
    (not.less.than.else 86)
    (load.value.Yn 3)
    (load.value.Yn 4)
    (subtract)
    (store.variable.Yn 5)
    (load.pos.word 48)
    (store.variable.Xn 1)
    (call 8 put 1 si)
    (load.pos.word 46)
    (store.variable.Xn 1)
    (call 8 put 1 si)
    (put.Ai.constant 2 48)
    (put.Ai.value.Yn 1 5)
    (call 7 write_many 2 format)
    (put.Ai.value.Yn 1 2)
    (depart write_list 1 format)
    (load.value.Yn 4)
    (load.value.Yn 3)
    (subtract)
    (store.variable.Xn 1)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 2)
    (call 4 write_clist 3 format)
    (load.pos.word 46)
    (store.variable.Xn 1)
    (call 4 put 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart write_list 1 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 29
    (get.Ai.constant 1 -69)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (load.value.Yn 3)
    (load.pos.word 1)
    (less.than.else 20)
    (load.pos.word 1)
    (store.variable.Yn 2)
    (jump.to 22)
    (load.value.Yn 3)
    (store.variable.Yn 2)
    (put.Ai.value.Yn 3 2)
    (put.Ai.constant 2 69)
    (put.Ai.value.Yn 1 1)
    (depart cprint 3 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 29
    (get.Ai.constant 1 -71)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (load.value.Yn 3)
    (load.pos.word 2)
    (less.than.else 20)
    (load.pos.word 2)
    (store.variable.Yn 2)
    (jump.to 22)
    (load.value.Yn 3)
    (store.variable.Yn 2)
    (put.Ai.value.Yn 3 2)
    (put.Ai.constant 2 71)
    (put.Ai.value.Yn 1 1)
    (depart cprint 3 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 45
    (get.Ai.constant 1 -82)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (load.value.Xn 2)
    (load.pos.word 2)
    (not.less.than.else 29)
    (load.value.Xn 2)
    (load.pos.word 36)
    (not.greater.than.else 29)
    (put.Ai.variable.Yn 4 3)
    (put.Ai.symbol 1 upper)
    (call 6 convert_to_radix 4 format)
    (put.Ai.unsafe.Yn 1 3)
    (depart write_list 1 format)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 45)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 505)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 7
    (get.Ai.constant 1 -97)
    (put.Ai.value.Xn 1 3)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 11
    (get.Ai.constant 1 -99)
    (get.Ai.constant 2 1)
    (put.Ai.value.Xn 1 3)
    (head.cut)
    (execute put 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 9
    (get.Ai.constant 1 -99)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (execute write_many 2 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 11
    (get.Ai.constant 1 -100)
    (get.Ai.constant 2 0)
    (put.Ai.value.Xn 1 3)
    (head.cut)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 95
    (get.Ai.constant 1 -100)
    (allocate)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.variable.Yn 3 7)
    (load.value.Yn 7)
    (load.pos.word 0)
    (less.than.else 26)
    (load.pos.word 45)
    (store.variable.Xn 1)
    (call 10 put 1 si)
    (load.value.Yn 7)
    (minus)
    (store.variable.Yn 6)
    (jump.to 28)
    (load.value.Yn 7)
    (store.variable.Yn 6)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 6)
    (call 9 name 2 si)
    (put.Ai.variable.Yn 2 5)
    (put.Ai.value.Yn 1 3)
    (call 9 length 2 si)
    (load.value.Yn 4)
    (load.value.Yn 5)
    (not.less.than.else 74)
    (load.value.Yn 4)
    (load.value.Yn 5)
    (subtract)
    (store.variable.Yn 2)
    (load.pos.word 48)
    (store.variable.Xn 1)
    (call 9 put 1 si)
    (load.pos.word 46)
    (store.variable.Xn 1)
    (call 9 put 1 si)
    (put.Ai.constant 2 48)
    (put.Ai.value.Yn 1 2)
    (call 9 write_many 2 format)
    (put.Ai.value.Yn 1 6)
    (depart write 1 si)
    (load.value.Yn 5)
    (load.value.Yn 4)
    (subtract)
    (store.variable.Yn 2)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 4 write_list 3 format)
    (load.pos.word 46)
    (store.variable.Xn 1)
    (call 4 put 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart write_list 1 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 29
    (get.Ai.constant 1 -101)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (load.value.Yn 3)
    (load.pos.word 1)
    (less.than.else 20)
    (load.pos.word 1)
    (store.variable.Yn 2)
    (jump.to 22)
    (load.value.Yn 3)
    (store.variable.Yn 2)
    (put.Ai.value.Yn 3 2)
    (put.Ai.constant 2 101)
    (put.Ai.value.Yn 1 1)
    (depart cprint 3 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 12
    (get.Ai.constant 1 -102)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 102)
    (execute cprint 3 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 29
    (get.Ai.constant 1 -103)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (load.value.Yn 3)
    (load.pos.word 2)
    (less.than.else 20)
    (load.pos.word 2)
    (store.variable.Yn 2)
    (jump.to 22)
    (load.value.Yn 3)
    (store.variable.Yn 2)
    (put.Ai.value.Yn 3 2)
    (put.Ai.constant 2 103)
    (put.Ai.value.Yn 1 1)
    (depart cprint 3 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 4
    (get.Ai.constant 1 -105)
    (proceed)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 7
    (get.Ai.constant 1 -107)
    (put.Ai.value.Xn 1 3)
    (execute write_canonical 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 7
    (get.Ai.constant 1 -112)
    (put.Ai.value.Xn 1 3)
    (execute print 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 7
    (get.Ai.constant 1 -113)
    (put.Ai.value.Xn 1 3)
    (execute writeq 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 45
    (get.Ai.constant 1 -114)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (load.value.Xn 2)
    (load.pos.word 2)
    (not.less.than.else 29)
    (load.value.Xn 2)
    (load.pos.word 36)
    (not.greater.than.else 29)
    (put.Ai.variable.Yn 4 3)
    (put.Ai.symbol 1 lower)
    (call 6 convert_to_radix 4 format)
    (put.Ai.unsafe.Yn 1 3)
    (depart write_list 1 format)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 45)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 505)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 11
    (get.Ai.constant 1 -115)
    (get.Ai.constant 2 0)
    (put.Ai.value.Xn 1 3)
    (head.cut)
    (execute write_list 1 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 10
    (get.Ai.constant 1 -115)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (put.Ai.void 3)
    (execute write_list 3 format)
)

(ASSEMBLE.CLAUSE ( write_to_user 4 format ) 7
    (get.Ai.constant 1 -119)
    (put.Ai.value.Xn 1 3)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 23
    (get.Ai.constant 1 -68)
    (get.Ai.constant 2 0)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (get.Ai.variable.Yn 4 2)
    (head.cut)
    (put.Ai.value.Yn 1 1)
    (call 5 write 1 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart commas 2 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 43
    (get.Ai.constant 1 -68)
    (allocate)
    (get.Ai.variable.Yn 2 6)
    (get.Ai.variable.Yn 3 5)
    (get.Ai.variable.Yn 4 1)
    (put.Ai.variable.Yn 4 3)
    (put.Ai.value.Yn 3 5)
    (put.Ai.value.Yn 2 6)
    (put.Ai.constant 1 -100)
    (call 9 write_to_null 4 format)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.value.Yn 1 6)
    (call 8 ten_power 2 format)
    (load.value.Yn 5)
    (load.value.Yn 4)
    (integer.divide)
    (store.variable.Xn 1)
    (put.Ai.variable.Yn 2 2)
    (call 6 commas 2 format)
    (load.value.Yn 3)
    (load.value.Yn 2)
    (add)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 12
    (get.Ai.constant 1 -69)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 69)
    (execute len 4 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 12
    (get.Ai.constant 1 -71)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 71)
    (execute len 4 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 30
    (get.Ai.constant 1 -82)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (load.value.Xn 1)
    (load.pos.word 2)
    (not.less.than.else 26)
    (load.value.Xn 1)
    (load.pos.word 36)
    (not.greater.than.else 26)
    (put.Ai.value.Yn 3 1)
    (depart find_radix_length 3 format)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 0)
    (progress)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 10
    (get.Ai.constant 1 -97)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 14
    (get.Ai.constant 1 -99)
    (get.Ai.constant 2 1)
    (get.Ai.constant 4 1)
    (load.value.Xn 3)
    (load.pos.word 32)
    (greater.than)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 14
    (get.Ai.constant 1 -99)
    (get.Ai.constant 2 1)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (head.cut)
    (execute put 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 10
    (get.Ai.constant 1 -99)
    (get.Ai.value.Xn 4 2)
    (load.value.Xn 3)
    (load.pos.word 32)
    (greater.than)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 12
    (get.Ai.constant 1 -99)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.constant 4 0)
    (execute write_many 2 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 14
    (get.Ai.constant 1 -100)
    (get.Ai.constant 2 0)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (head.cut)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 54
    (get.Ai.constant 1 -100)
    (allocate)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 7)
    (get.Ai.variable.Yn 4 1)
    (put.Ai.variable.Yn 1 6)
    (call 10 current_output 1 si)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 6)
    (call 10 line_position 2 si)
    (put.Ai.value.Yn 1 7)
    (call 9 write 1 si)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 line_position 2 si)
    (load.value.Yn 5)
    (load.value.Yn 4)
    (subtract)
    (load.value.Yn 3)
    (add)
    (store.variable.Yn 2)
    (load.value.Yn 2)
    (load.pos.word 0)
    (less.than.else 51)
    (load.pos.word 1)
    (store.value.Yn 1)
    (progress)
    (load.value.Yn 2)
    (add.pos.word 2)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 12
    (get.Ai.constant 1 -101)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 101)
    (execute len 4 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 12
    (get.Ai.constant 1 -102)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 102)
    (execute len 4 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 12
    (get.Ai.constant 1 -103)
    (put.Ai.value.Xn 1 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 103)
    (execute len 4 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 7
    (get.Ai.constant 1 -105)
    (get.Ai.constant 4 0)
    (proceed)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 10
    (get.Ai.constant 1 -107)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (execute write_canonical 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 10
    (get.Ai.constant 1 -112)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (execute print 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 10
    (get.Ai.constant 1 -113)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (execute writeq 1 si)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 30
    (get.Ai.constant 1 -114)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (load.value.Xn 1)
    (load.pos.word 2)
    (not.less.than.else 26)
    (load.value.Xn 1)
    (load.pos.word 36)
    (not.greater.than.else 26)
    (put.Ai.value.Yn 3 1)
    (depart find_radix_length 3 format)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 0)
    (progress)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 14
    (get.Ai.constant 1 -115)
    (get.Ai.constant 2 0)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (head.cut)
    (execute write_list 1 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 13
    (get.Ai.constant 1 -115)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (get.Ai.constant 4 0)
    (put.Ai.void 3)
    (execute write_list 3 format)
)

(ASSEMBLE.CLAUSE ( write_to_null 4 format ) 10
    (get.Ai.constant 1 -119)
    (put.Ai.value.Xn 1 3)
    (get.Ai.constant 4 0)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( check_int 4 format ) 29
    (get.Ai.constant 1 NIL)
    (get.Ai.constant 2 0)
    (get.Ai.nil 3)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (head.cut)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 29)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 501)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( check_int 4 format ) 16
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Xn 1)
    (get.Ai.value.Yn 2 1)
    (get.Ai.value.Xn 3 1)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (load.value.Yn 1)
    (load.pos.word 0)
    (not.less.than)
    (progress)
)

(ASSEMBLE.CLAUSE ( check_int 4 format ) 25
    (get.Ai.constant 2 0)
    (get.Ai.nil 3)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 25)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 502)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 27
    (get.Ai.nil 2)
    (get.Ai.constant 3 0)
    (get.Ai.nil 4)
    (allocate)
    (get.Ai.variable.Yn 5 1)
    (head.cut)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 27)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 501)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 11
    (get.Ai.constant 1 any)
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 3 2)
    (get.Ai.value.Xn 4 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 12
    (get.Ai.constant 1 atom)
    (get.Ai.list 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (get.Ai.value.Xn 3 1)
    (get.Ai.value.Xn 4 2)
    (is.a 128)
    (proceed)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 23
    (get.Ai.constant 1 char)
    (get.Ai.list 2)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Xn 1)
    (get.Ai.value.Yn 3 1)
    (get.Ai.value.Xn 4 1)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (load.value.Yn 1)
    (load.pos.word 0)
    (not.less.than)
    (load.value.Yn 1)
    (load.pos.word 128)
    (less.than)
    (progress)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 12
    (get.Ai.constant 1 flp)
    (get.Ai.list 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (get.Ai.value.Xn 3 1)
    (get.Ai.value.Xn 4 2)
    (is.a 32)
    (proceed)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 18
    (get.Ai.constant 1 flp)
    (get.Ai.list 2)
    (allocate)
    (unify.variable.Yn 2)
    (unify.variable.Xn 1)
    (get.Ai.variable.Yn 3 1)
    (get.Ai.value.Xn 4 1)
    (put.Ai.value.Yn 1 2)
    (is.a 24)
    (load.value.Yn 2)
    (float)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 12
    (get.Ai.constant 1 int)
    (get.Ai.list 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (get.Ai.value.Xn 3 1)
    (get.Ai.value.Xn 4 2)
    (is.a 24)
    (proceed)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 19
    (get.Ai.constant 1 list)
    (get.Ai.list 2)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Xn 1)
    (get.Ai.value.Yn 3 1)
    (get.Ai.value.Xn 4 1)
    (put.Ai.value.Yn 1 1)
    (is.a 254)
    (put.Ai.value.Yn 1 1)
    (get.Ai.list 1)
    (unify.void 2)
    (progress)
)

(ASSEMBLE.CLAUSE ( check_type 5 format ) 25
    (get.Ai.constant 3 0)
    (get.Ai.nil 4)
    (allocate)
    (get.Ai.variable.Yn 5 1)
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 25)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 502)
    (progress)
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( find_radix_length 3 format ) 7
    (get.Ai.constant 2 0)
    (get.Ai.constant 3 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( find_radix_length 3 format ) 12
    (put.Ai.value.Xn 4 3)
    (load.value.Xn 2)
    (load.pos.word 0)
    (greater.than)
    (head.cut)
    (put.Ai.constant 3 0)
    (execute find_radix_len 4 format)
)

(ASSEMBLE.CLAUSE ( find_radix_length 3 format ) 19
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (load.value.Xn 2)
    (minus)
    (store.variable.Xn 2)
    (put.Ai.variable.Yn 4 2)
    (put.Ai.constant 3 0)
    (call 5 find_radix_len 4 format)
    (load.value.Yn 2)
    (add.pos.word 1)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( find_radix_len 4 format ) 6
    (get.Ai.constant 2 0)
    (get.Ai.value.Xn 4 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( find_radix_len 4 format ) 10
    (load.value.Xn 2)
    (load.value.Xn 1)
    (integer.divide)
    (store.variable.Xn 2)
    (load.value.Xn 3)
    (add.pos.word 1)
    (store.variable.Xn 3)
    (execute find_radix_len 4 format)
)

(ASSEMBLE.CLAUSE ( convert_to_radix 4 format ) 9
    (get.Ai.constant 3 0)
    (get.Ai.list 4)
    (unify.constant 48)
    (unify.nil)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( convert_to_radix 4 format ) 10
    (put.Ai.value.Xn 5 4)
    (load.value.Xn 3)
    (load.pos.word 0)
    (greater.than)
    (head.cut)
    (put.Ai.nil 4)
    (execute convert_to_radix 5 format)
)

(ASSEMBLE.CLAUSE ( convert_to_radix 4 format ) 11
    (get.Ai.list 4)
    (unify.constant 45)
    (unify.variable.Xn 5)
    (load.value.Xn 3)
    (minus)
    (store.variable.Xn 3)
    (put.Ai.nil 4)
    (execute convert_to_radix 5 format)
)

(ASSEMBLE.CLAUSE ( convert_to_radix 5 format ) 6
    (get.Ai.constant 3 0)
    (get.Ai.value.Xn 5 4)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( convert_to_radix 5 format ) 46
    (get.Ai.constant 1 lower)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 4 3)
    (get.Ai.variable.Yn 5 5)
    (load.value.Xn 3)
    (load.value.Yn 1)
    (integer.divide)
    (store.variable.Yn 2)
    (load.value.Xn 3)
    (load.value.Yn 1)
    (modulus)
    (store.variable.Yn 6)
    (load.value.Yn 6)
    (load.pos.word 9)
    (greater.than.else 31)
    (load.value.Yn 6)
    (add.pos.word 87)
    (store.variable.Yn 4)
    (jump.to 35)
    (load.value.Yn 6)
    (add.pos.word 48)
    (store.variable.Yn 4)
    (put.Ai.value.Yn 5 5)
    (put.Ai.list 4)
    (unify.value.Yn 4)
    (unify.local.Yn 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 lower)
    (depart convert_to_radix 5 format)
)

(ASSEMBLE.CLAUSE ( convert_to_radix 5 format ) 46
    (get.Ai.constant 1 upper)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 4 3)
    (get.Ai.variable.Yn 5 5)
    (load.value.Xn 3)
    (load.value.Yn 1)
    (integer.divide)
    (store.variable.Yn 2)
    (load.value.Xn 3)
    (load.value.Yn 1)
    (modulus)
    (store.variable.Yn 6)
    (load.value.Yn 6)
    (load.pos.word 9)
    (greater.than.else 31)
    (load.value.Yn 6)
    (add.pos.word 55)
    (store.variable.Yn 4)
    (jump.to 35)
    (load.value.Yn 6)
    (add.pos.word 48)
    (store.variable.Yn 4)
    (put.Ai.value.Yn 5 5)
    (put.Ai.list 4)
    (unify.value.Yn 4)
    (unify.local.Yn 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 upper)
    (depart convert_to_radix 5 format)
)

(ASSEMBLE.CLAUSE ( write_many 2 format ) 4
    (get.Ai.constant 1 0)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_many 2 format ) 18
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 1)
    (call 5 put 1 si)
    (load.value.Yn 2)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (put.Ai.value.Yn 2 1)
    (depart write_many 2 format)
)

(ASSEMBLE.CLAUSE ( write_list 1 format ) 4
    (get.Ai.constant 1 NIL)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_list 1 format ) 11
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (call 4 put 1 si)
    (put.Ai.value.Yn 1 1)
    (depart write_list 1 format)
)

(ASSEMBLE.CLAUSE ( write_list 3 format ) 6
    (get.Ai.constant 1 0)
    (get.Ai.nil 2)
    (get.Ai.nil 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_list 3 format ) 6
    (get.Ai.constant 1 0)
    (get.Ai.value.Xn 3 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_list 3 format ) 3
    (get.Ai.nil 2)
    (get.Ai.nil 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_list 3 format ) 23
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 3 3)
    (load.value.Xn 1)
    (add.neg.word -1)
    (store.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (call 6 put 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart write_list 3 format)
)

(ASSEMBLE.CLAUSE ( write_clist 3 format ) 6
    (get.Ai.constant 1 0)
    (get.Ai.value.Xn 3 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( write_clist 3 format ) 58
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 6)
    (get.Ai.variable.Yn 3 3)
    (load.value.Yn 5)
    (load.pos.word 3)
    (modulus)
    (store.variable.Yn 7)
    (load.value.Yn 7)
    (load.pos.word 0)
    (equal.to.else 24)
    (load.pos.word 3)
    (store.variable.Yn 4)
    (jump.to 26)
    (load.value.Yn 7)
    (store.variable.Yn 4)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 6)
    (put.Ai.value.Yn 1 4)
    (call 8 cwrite_list 3 format)
    (load.value.Yn 5)
    (load.value.Yn 4)
    (subtract)
    (store.variable.Yn 1)
    (load.value.Yn 1)
    (load.pos.word 0)
    (equal.to.else 46)
    (jump.to 52)
    (put.Ai.constant 1 44)
    (call 6 put 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart write_clist 3 format)
)

(ASSEMBLE.CLAUSE ( cwrite_list 3 format ) 6
    (get.Ai.constant 1 0)
    (get.Ai.value.Xn 3 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( cwrite_list 3 format ) 3
    (get.Ai.nil 2)
    (get.Ai.nil 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( cwrite_list 3 format ) 23
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 3 3)
    (load.value.Xn 1)
    (add.neg.word -1)
    (store.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (call 6 put 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart cwrite_list 3 format)
)

(ASSEMBLE.CLAUSE ( commas 2 format ) 34
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (load.value.Yn 2)
    (load.constant 999999)
    (greater.than.else 19)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 2)
    (progress)
    (load.value.Yn 2)
    (load.pos.word 999)
    (greater.than.else 30)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 1)
    (progress)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 0)
    (progress)
)

(ASSEMBLE.CLAUSE ( ten_power 2 format ) 7
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 1)
    (execute ten_power 3 format)
)

(ASSEMBLE.CLAUSE ( ten_power 3 format ) 6
    (get.Ai.constant 1 0)
    (get.Ai.value.Xn 3 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( ten_power 3 format ) 11
    (load.value.Xn 1)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (load.value.Xn 2)
    (load.pos.word 10)
    (multiply)
    (store.variable.Xn 2)
    (execute ten_power 3 format)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 43)
    (get.Ai.symbol 2 mark)
    (get.Ai.list 3)
    (unify.constant -43)
    (unify.list)
    (unify.constant 8)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 none)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 68)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -68)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 int)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 69)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -69)
    (unify.list)
    (unify.constant 6)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 flp)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 71)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -71)
    (unify.list)
    (unify.constant 6)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 flp)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 78)
    (get.Ai.symbol 2 misc)
    (get.Ai.list 3)
    (unify.constant -78)
    (unify.list)
    (unify.constant 1)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 none)
    (get.Ai.symbol 6 simple)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 82)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -82)
    (unify.list)
    (unify.constant 8)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 int)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 97)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -97)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 atom)
    (get.Ai.symbol 6 simple)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 99)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -99)
    (unify.list)
    (unify.constant 1)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 char)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 100)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -100)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 int)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 101)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -101)
    (unify.list)
    (unify.constant 6)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 flp)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 102)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -102)
    (unify.list)
    (unify.constant 6)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 flp)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 103)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -103)
    (unify.list)
    (unify.constant 6)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 flp)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 105)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -105)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 any)
    (get.Ai.symbol 6 simple)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 107)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -107)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 any)
    (get.Ai.symbol 6 simple)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 110)
    (get.Ai.symbol 2 misc)
    (get.Ai.list 3)
    (unify.constant -110)
    (unify.list)
    (unify.constant 1)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 none)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 112)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -112)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 any)
    (get.Ai.symbol 6 simple)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 113)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -113)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 any)
    (get.Ai.symbol 6 simple)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 114)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -114)
    (unify.list)
    (unify.constant 8)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 int)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 115)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -115)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 list)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 116)
    (get.Ai.symbol 2 fill)
    (get.Ai.list 3)
    (unify.constant -116)
    (unify.list)
    (unify.constant 32)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 none)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 119)
    (get.Ai.symbol 2 atom)
    (get.Ai.list 3)
    (unify.constant -119)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 any)
    (get.Ai.symbol 6 simple)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 124)
    (get.Ai.symbol 2 mark)
    (get.Ai.list 3)
    (unify.constant -124)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 none)
    (get.Ai.symbol 6 numeric)
    (proceed)
)

(ASSEMBLE.CLAUSE ( specifier 6 format ) 21
    (get.Ai.constant 1 126)
    (get.Ai.symbol 2 misc)
    (get.Ai.list 3)
    (unify.constant -126)
    (unify.list)
    (unify.constant 0)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 4 1)
    (get.Ai.symbol 5 none)
    (get.Ai.symbol 6 simple)
    (proceed)
)

STOP