(ASSEMBLE.CLAUSE ( read 1 si ) 14
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.void 2)
    (put.Ai.variable.Yn 1 2)
    (call 5 read←until←success 2 si)
    (put.Ai.unsafe.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( read 2 si ) 3
    (put.Ai.void 3)
    (execute read←from←stream 3 si)
)

(ASSEMBLE.CLAUSE ( read 3 si ) 15
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 3 1)
    (call 5 read←from←stream 3 si)
    (put.Ai.void 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart transform←variables 3 si)
)

(ASSEMBLE.CLAUSE ( read 4 si ) 25
    (allocate)
    (get.Ai.variable.Yn 3 4)
    (get.Ai.variable.Yn 4 2)
    (put.Ai.variable.Yn 3 3)
    (call 7 read←from←stream 3 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.value.Yn 2 4)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 transform←variables 3 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart filter←singles 2 si)
)

(ASSEMBLE.CLAUSE ( read←from←stream 3 si ) 34
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 4)
    (put.Ai.variable.Yn 1 3)
    (call 8 current←input 1 si)
    (put.Ai.value.Yn 1 5)
    (call 7 set←input 1 si)
    (put.Ai.value.Yn 2 4)
    (put.Ai.variable.Yn 1 2)
    (call 6 read←until←success 2 si)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 set←input 1 si)
    (put.Ai.unsafe.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( read←until←success 2 si ) 23
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (call 6 repeat 0 si)
    (put.Ai.value.Yn 2 3)
    (put.Ai.variable.Yn 1 1)
    (call 5 read←tokens 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 parse 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( read1 3 si ) 15
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 3 1)
    (call 5 read←from←stream←or←fail 3 si)
    (put.Ai.void 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart transform←variables 3 si)
)

(ASSEMBLE.CLAUSE ( read←from←stream←or←fail 3 si ) 36
    (allocate)
    (get.Ai.variable.Yn 1 5)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 4)
    (put.Ai.variable.Yn 1 3)
    (call 8 current←input 1 si)
    (put.Ai.value.Yn 1 5)
    (call 7 set←input 1 si)
    (put.Ai.value.Yn 2 4)
    (put.Ai.variable.Yn 1 1)
    (call 6 read←tokens 2 si)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 set←input 1 si)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart parse 2 si)
)

(ASSEMBLE.CLAUSE ( read←directly 1 si ) 15
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.void 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 read←the←tokens 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart parse 2 si)
)

(ASSEMBLE.CLAUSE ( parse 2 si ) 7
    (get.Ai.list 1)
    (unify.symbol end←of←stream)
    (unify.nil)
    (get.Ai.symbol 2 end←of←file)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( parse 2 si ) 22
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.value.Xn 3 2)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.constant 2 1200)
    (put.Ai.value.Yn 1 2)
    (call 5 sys←read 4 si)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart all←read 2 si)
)

(ASSEMBLE.CLAUSE ( parse 2 si ) 10
    (allocate)
    (put.Ai.symbol 1 %*%*% %?%?read% failed%?%?% %*%*)
    (call 3 display 1 si)
    (call 3 ttynl 0 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( syntax←error 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.value.Xn 3 1)
    (allocate)
    (call 3 error←already 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( syntax←error 3 si ) 6
    (get.Ai.structure 3 %$syntax←error 2)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( error←already 1 si ) 5
    (get.Ai.structure 1 %$syntax←error 2)
    (unify.void 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( all←read 2 si ) 4
    (get.Ai.constant 1 NIL)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( all←read 2 si ) 15
    (get.Ai.structure 1 %$syntax←error 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 4)
    (put.Ai.value.Xn 3 2)
    (head.cut)
    (allocate)
    (put.Ai.value.Xn 2 4)
    (call 3 show←error 3 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( all←read 2 si ) 11
    (put.Ai.value.Xn 3 2)
    (allocate)
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 |.(MKATOM ""))
    (call 3 show←error 3 si)
    (fail)
)

(ASSEMBLE.CLAUSE ( show←error 3 si ) 49
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 1 1)
    (call 7 current←output 1 si)
    (put.Ai.symbol 1 user)
    (call 7 tell 1 si)
    (call 7 nl 0 si)
    (put.Ai.symbol 1 %*%*% Syntax% error%:% )
    (call 7 write 1 si)
    (put.Ai.value.Yn 1 4)
    (call 6 read←error←write 1 si)
    (put.Ai.symbol 1 % %*%*)
    (call 6 write 1 si)
    (call 6 nl 0 si)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 4 display←tokens 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart tell 1 si)
)

(ASSEMBLE.CLAUSE ( display←tokens 2 si ) 29
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 4)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 1)
    (call 7 length 2 si)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (call 6 length 2 si)
    (load.value.Yn 3)
    (load.value.Yn 2)
    (subtract)
    (store.variable.Xn 2)
    (put.Ai.symbol 3 solo)
    (put.Ai.value.Yn 1 1)
    (depart display←tokens 3 si)
)

(ASSEMBLE.CLAUSE ( display←tokens 3 si ) 21
    (get.Ai.constant 1 NIL)
    (get.Ai.constant 2 0)
    (head.cut)
    (allocate)
    (call 3 nl 0 si)
    (put.Ai.symbol 1 %*%*% here% %*%*)
    (call 3 write 1 si)
    (call 3 nl 0 si)
    (depart nl 0 si)
)

(ASSEMBLE.CLAUSE ( display←tokens 3 si ) 10
    (get.Ai.constant 1 NIL)
    (head.cut)
    (allocate)
    (call 3 nl 0 si)
    (depart nl 0 si)
)

(ASSEMBLE.CLAUSE ( display←tokens 3 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.constant 2 0)
    (head.cut)
    (call 4 nl 0 si)
    (put.Ai.symbol 1 %*%*% here% %*%*)
    (call 4 write 1 si)
    (call 4 nl 0 si)
    (put.Ai.symbol 3 solo)
    (put.Ai.constant 2 -1)
    (put.Ai.value.Yn 1 1)
    (depart display←tokens 3 si)
)

(ASSEMBLE.CLAUSE ( display←tokens 3 si ) 37
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 4)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 5)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 4)
    (call 8 display←token←type 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 5)
    (call 7 put←space←if←needed 2 si)
    (put.Ai.value.Yn 1 4)
    (call 6 display←token 1 si)
    (load.value.Yn 3)
    (add.neg.word -1)
    (store.variable.Xn 2)
    (put.Ai.unsafe.Yn 3 2)
    (put.Ai.value.Yn 1 1)
    (depart display←tokens 3 si)
)

(ASSEMBLE.CLAUSE ( display←token←type 2 si ) 7
    (get.Ai.structure 1 var 2)
    (unify.void 2)
    (get.Ai.symbol 2 alphameric)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( display←token←type 2 si ) 7
    (get.Ai.structure 1 integer 1)
    (unify.void 1)
    (get.Ai.symbol 2 alphameric)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( display←token←type 2 si ) 7
    (get.Ai.structure 1 string 1)
    (unify.void 1)
    (get.Ai.symbol 2 solo)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( display←token←type 2 si ) 7
    (get.Ai.structure 1 fraction 1)
    (unify.void 1)
    (get.Ai.symbol 2 alphameric)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( display←token←type 2 si ) 6
    (get.Ai.constant 1 end←of←stream)
    (get.Ai.symbol 2 solo)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( display←token←type 2 si ) 7
    (get.Ai.structure 1 atom 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute token←type 2 si)
)

(ASSEMBLE.CLAUSE ( display←token←type 2 si ) 2
    (execute token←type 2 si)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 4
    (get.Ai.constant 1 end←of←stream)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 7
    (get.Ai.structure 1 atom 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute writeq 1 si)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 8
    (get.Ai.structure 1 var 2)
    (unify.void 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute print←variable←name 1 si)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 13
    (get.Ai.structure 1 integer 1)
    (allocate)
    (unify.variable.Yn 1)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (body.cut)
    (put.Ai.value.Yn 1 1)
    (depart write 1 si)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 23
    (get.Ai.structure 1 integer 1)
    (unify.list)
    (unify.variable.Xn 2)
    (unify.variable.Xn 1)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 5 1)
    (put.Ai.constant 4 1)
    (put.Ai.constant 3 0)
    (call 4 base←10←integer 5 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart write 1 si)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 22
    (get.Ai.structure 1 string 1)
    (allocate)
    (unify.variable.Yn 1)
    (head.cut)
    (put.Ai.constant 1 34)
    (call 4 put 1 si)
    (put.Ai.value.Yn 1 1)
    (call 3 display←string 1 si)
    (put.Ai.constant 1 34)
    (depart put 1 si)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 7
    (get.Ai.structure 1 fraction 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute display←string 1 si)
)

(ASSEMBLE.CLAUSE ( display←token 1 si ) 3
    (head.cut)
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( display←string 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( display←string 1 si ) 23
    (get.Ai.list 1)
    (unify.constant 34)
    (allocate)
    (unify.variable.Yn 1)
    (head.cut)
    (put.Ai.constant 1 34)
    (call 4 put 1 si)
    (put.Ai.constant 1 34)
    (call 4 put 1 si)
    (put.Ai.value.Yn 1 1)
    (depart display←string 1 si)
)

(ASSEMBLE.CLAUSE ( display←string 1 si ) 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 display←string 1 si)
)

(ASSEMBLE.CLAUSE ( read←error←write 1 si ) 6
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (head.cut)
    (execute format 2 format)
)

(ASSEMBLE.CLAUSE ( read←error←write 1 si ) 2
    (execute write 1 si)
)

(ASSEMBLE.CLAUSE ( expect 3 si ) 6
    (get.Ai.list 2)
    (unify.local.Xn 1)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 3 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( expect 3 si ) 4
    (put.Ai.symbol 1 |.(MKATOM ""))
    (execute syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( prefixop 3 si ) 22
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.value.Xn 3 1)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 2)
    (call 6 current←op 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart prefixop1 3 si)
)

(ASSEMBLE.CLAUSE ( prefixop1 3 si ) 6
    (get.Ai.constant 1 fy)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefixop1 3 si ) 8
    (get.Ai.constant 1 fx)
    (load.value.Xn 2)
    (add.neg.word -1)
    (store.value.Xn 3)
    (proceed)
)

(ASSEMBLE.CLAUSE ( postfixop 3 si ) 22
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.value.Xn 3 1)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 6 current←op 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart postfixop1 3 si)
)

(ASSEMBLE.CLAUSE ( postfixop1 3 si ) 6
    (get.Ai.constant 1 yf)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( postfixop1 3 si ) 8
    (get.Ai.constant 1 xf)
    (load.value.Xn 3)
    (add.neg.word -1)
    (store.value.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( infixop 4 si ) 26
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (put.Ai.value.Xn 3 1)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 3)
    (call 7 current←op 3 si)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart infixop1 4 si)
)

(ASSEMBLE.CLAUSE ( infixop1 4 si ) 10
    (get.Ai.constant 1 xfx)
    (get.Ai.value.Xn 4 2)
    (load.value.Xn 3)
    (add.neg.word -1)
    (store.value.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( infixop1 4 si ) 10
    (get.Ai.constant 1 xfy)
    (get.Ai.value.Xn 4 3)
    (load.value.Xn 3)
    (add.neg.word -1)
    (store.value.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( infixop1 4 si ) 10
    (get.Ai.constant 1 yfx)
    (get.Ai.value.Xn 3 2)
    (load.value.Xn 2)
    (add.neg.word -1)
    (store.value.Xn 4)
    (proceed)
)

(ASSEMBLE.CLAUSE ( ambigop 7 si ) 42
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 4)
    (get.Ai.variable.Yn 4 2)
    (get.Ai.variable.Yn 5 5)
    (put.Ai.value.Xn 2 6)
    (get.Ai.variable.Yn 7 6)
    (put.Ai.value.Yn 3 6)
    (put.Ai.value.Yn 1 3)
    (call 9 postfixop 3 si)
    (body.cut)
    (load.value.Yn 6)
    (load.value.Yn 1)
    (not.greater.than)
    (put.Ai.value.Yn 4 5)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (call 5 infixop 4 si)
    (body.cut)
    (load.value.Yn 2)
    (load.value.Yn 1)
    (not.greater.than)
    (progress)
)

(ASSEMBLE.CLAUSE ( sys←read 4 si ) 13
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.variable.Xn 6)
    (put.Ai.value.Xn 5 4)
    (put.Ai.value.Xn 4 3)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 6)
    (execute sys←read 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 4 si ) 12
    (get.Ai.constant 1 NIL)
    (get.Ai.nil 3)
    (put.Ai.value.Xn 3 4)
    (head.cut)
    (put.Ai.nil 2)
    (put.Ai.symbol 1 |.(MKATOM ""))
    (execute syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 12
    (get.Ai.structure 1 var 2)
    (unify.variable.Xn 6)
    (unify.void 1)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.value.Xn 2 6)
    (execute exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 73
    (get.Ai.structure 1 atom 1)
    (unify.symbol %-)
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (unify.variable.Xn 1)
    (get.Ai.structure 2 integer 1)
    (unify.list)
    (allocate)
    (unify.variable.Yn 9)
    (unify.variable.Yn 8)
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.variable.Yn 1)
    (get.Ai.structure 1 fraction 1)
    (unify.variable.Yn 6)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (head.cut)
    (call 12 clear←byte←buffer 0 si)
    (put.Ai.constant 1 45)
    (call 12 put←byte 1 si)
    (put.Ai.variable.Yn 2 7)
    (put.Ai.list 1)
    (unify.value.Yn 9)
    (unify.value.Yn 8)
    (call 10 reverse 2 si)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 digits←to←byte←buffer 1 si)
    (put.Ai.value.Yn 1 6)
    (call 8 chars←to←byte←buffer 1 si)
    (put.Ai.variable.Yn 1 2)
    (call 8 float←from←byte←buffer 1 si)
    (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.value.Yn 1 1)
    (depart exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 39
    (get.Ai.structure 1 atom 1)
    (unify.symbol %-)
    (get.Ai.list 2)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.structure 1 integer 1)
    (unify.variable.Xn 1)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 3)
    (get.Ai.variable.Yn 5 4)
    (head.cut)
    (put.Ai.variable.Yn 2 5)
    (call 8 real←integer 2 si)
    (load.value.Yn 5)
    (minus)
    (store.variable.Xn 2)
    (body.cut)
    (put.Ai.value.Yn 5 4)
    (put.Ai.value.Yn 4 3)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 1 1)
    (depart exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 71
    (get.Ai.structure 1 atom 1)
    (allocate)
    (unify.variable.Yn 6)
    (get.Ai.list 2)
    (unify.symbol %()
    (unify.variable.Xn 1)
    (get.Ai.variable.Yn 3 4)
    (get.Ai.variable.Yn 4 5)
    (get.Ai.variable.Yn 5 2)
    (head.cut)
    (put.Ai.variable.Yn 4 9)
    (put.Ai.variable.Yn 3 8)
    (put.Ai.constant 2 999)
    (call 12 sys←read 4 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.variable.Yn 2 7)
    (put.Ai.unsafe.Yn 1 9)
    (call 11 read←args 3 si)
    (either 11 64)
    (put.Ai.list 1)
    (unify.local.Yn 8)
    (unify.local.Yn 7)
    (put.Ai.list 2)
    (unify.value.Yn 6)
    (unify.value.Xn 1)
    (put.Ai.variable.Yn 1 3)
    (call 8 %=%.%. 2 si)
    (body.cut)
    (put.Ai.value.Yn 5 2)
    (put.Ai.value.Yn 4 5)
    (put.Ai.value.Yn 3 4)
    (put.Ai.unsafe.Yn 2 3)
    (put.Ai.value.Yn 1 1)
    (depart exprtl0 5 si)
    (or.finally)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 1)
    (put.Ai.symbol 1 predicate% has% arity% greater% than% 255)
    (depart syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 39
    (get.Ai.structure 1 atom 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.variable.Yn 3 5)
    (get.Ai.variable.Yn 4 6)
    (get.Ai.variable.Yn 5 7)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 10 prefixop 3 si)
    (body.cut)
    (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.unsafe.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart after←prefix←op 7 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 11
    (get.Ai.structure 1 atom 1)
    (unify.variable.Xn 6)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.value.Xn 2 6)
    (execute exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 59
    (get.Ai.structure 1 integer 1)
    (unify.list)
    (allocate)
    (unify.variable.Yn 9)
    (unify.variable.Yn 8)
    (get.Ai.list 2)
    (unify.variable.Xn 1)
    (unify.variable.Yn 1)
    (get.Ai.structure 1 fraction 1)
    (unify.variable.Yn 6)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (head.cut)
    (call 12 clear←byte←buffer 0 si)
    (put.Ai.variable.Yn 2 7)
    (put.Ai.list 1)
    (unify.value.Yn 9)
    (unify.value.Yn 8)
    (call 10 reverse 2 si)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 digits←to←byte←buffer 1 si)
    (put.Ai.value.Yn 1 6)
    (call 8 chars←to←byte←buffer 1 si)
    (put.Ai.variable.Yn 1 2)
    (call 8 float←from←byte←buffer 1 si)
    (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.value.Yn 1 1)
    (depart exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 31
    (get.Ai.structure 1 integer 1)
    (unify.variable.Xn 1)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (call 8 real←integer 2 si)
    (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.value.Yn 1 1)
    (depart exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 14
    (get.Ai.constant 1 %[)
    (get.Ai.list 2)
    (unify.symbol %])
    (unify.variable.Xn 2)
    (head.cut)
    (put.Ai.structure 1 atom 1)
    (unify.nil)
    (execute sys←read 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 46
    (get.Ai.constant 1 %[)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 4)
    (get.Ai.variable.Yn 4 5)
    (get.Ai.variable.Yn 5 6)
    (head.cut)
    (put.Ai.variable.Yn 4 7)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.constant 2 999)
    (call 10 sys←read 4 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 read←list 3 si)
    (body.cut)
    (put.Ai.value.Yn 5 6)
    (put.Ai.value.Yn 4 5)
    (put.Ai.value.Yn 3 4)
    (put.Ai.list 2)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 45
    (get.Ai.constant 1 %()
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (head.cut)
    (put.Ai.variable.Yn 4 6)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 1200)
    (call 9 sys←read 4 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 6)
    (put.Ai.symbol 1 %))
    (call 8 expect 3 si)
    (body.cut)
    (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 exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 45
    (get.Ai.constant 1 % %()
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (head.cut)
    (put.Ai.variable.Yn 4 6)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 1200)
    (call 9 sys←read 4 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 6)
    (put.Ai.symbol 1 %))
    (call 8 expect 3 si)
    (body.cut)
    (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 exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 16
    (get.Ai.constant 1 %))
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 3 5)
    (head.cut)
    (put.Ai.list 2)
    (unify.symbol %))
    (unify.local.Xn 1)
    (put.Ai.symbol 1 |.(MKATOM ""))
    (execute syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 15
    (get.Ai.constant 1 %{)
    (get.Ai.list 2)
    (unify.symbol %})
    (unify.variable.Xn 2)
    (head.cut)
    (put.Ai.structure 1 atom 1)
    (unify.symbol %{%})
    (execute sys←read 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 47
    (get.Ai.constant 1 %{)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (head.cut)
    (put.Ai.variable.Yn 4 6)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 1200)
    (call 9 sys←read 4 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 6)
    (put.Ai.symbol 1 %})
    (call 8 expect 3 si)
    (body.cut)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.value.Yn 3 3)
    (put.Ai.structure 2 %{%} 1)
    (unify.local.Yn 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 11
    (get.Ai.structure 1 string 1)
    (unify.variable.Xn 6)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (put.Ai.value.Xn 2 6)
    (execute exprtl0 5 si)
)

(ASSEMBLE.CLAUSE ( sys←read 5 si ) 13
    (put.Ai.value.Xn 6 2)
    (get.Ai.nil 4)
    (put.Ai.value.Xn 3 5)
    (head.cut)
    (put.Ai.list 2)
    (unify.local.Xn 1)
    (unify.local.Xn 6)
    (put.Ai.symbol 1 |.(MKATOM ""))
    (execute syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( read←args 3 si ) 30
    (get.Ai.list 1)
    (unify.symbol %,)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 999)
    (call 6 sys←read 4 si)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart read←args 3 si)
)

(ASSEMBLE.CLAUSE ( read←args 3 si ) 8
    (get.Ai.list 1)
    (unify.symbol %))
    (unify.variable.Xn 1)
    (get.Ai.nil 2)
    (get.Ai.value.Xn 3 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( read←args 3 si ) 8
    (get.Ai.nil 2)
    (head.cut)
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 |.(MKATOM ""))
    (execute syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( read←list 3 si ) 30
    (get.Ai.list 1)
    (unify.symbol %,)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 999)
    (call 6 sys←read 4 si)
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart read←list 3 si)
)

(ASSEMBLE.CLAUSE ( read←list 3 si ) 27
    (get.Ai.list 1)
    (unify.symbol %|)
    (unify.variable.Xn 1)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (head.cut)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.value.Xn 3 2)
    (put.Ai.constant 2 999)
    (call 5 sys←read 4 si)
    (body.cut)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 1)
    (put.Ai.symbol 1 %])
    (depart expect 3 si)
)

(ASSEMBLE.CLAUSE ( read←list 3 si ) 8
    (get.Ai.list 1)
    (unify.symbol %])
    (unify.variable.Xn 1)
    (get.Ai.nil 2)
    (get.Ai.value.Xn 3 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( read←list 3 si ) 8
    (get.Ai.nil 2)
    (head.cut)
    (put.Ai.value.Xn 2 1)
    (put.Ai.symbol 1 missing% %])
    (execute syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( after←prefix←op 7 si ) 18
    (get.Ai.nil 6)
    (put.Ai.value.Xn 3 7)
    (load.value.Xn 5)
    (load.value.Xn 2)
    (less.than)
    (head.cut)
    (put.Ai.value.Xn 2 4)
    (put.Ai.list 4)
    (unify.local.Xn 1)
    (unify.nil)
    (put.Ai.list 1)
    (unify.symbol prefix% operator% %~w% used% improperly)
    (unify.value.Xn 4)
    (execute syntax←error 3 si)
)

(ASSEMBLE.CLAUSE ( after←prefix←op 7 si ) 39
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Xn 1 4)
    (get.Ai.variable.Yn 5 4)
    (get.Ai.variable.Yn 6 5)
    (get.Ai.variable.Yn 7 6)
    (put.Ai.variable.Yn 2 1)
    (call 9 peepop 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 9 prefix←is←atom 2 si)
    (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.unsafe.Yn 1 1)
    (depart exprtl 6 si)
)

(ASSEMBLE.CLAUSE ( after←prefix←op 7 si ) 53
    (allocate)
    (get.Ai.variable.Yn 1 8)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Xn 2 3)
    (put.Ai.value.Xn 1 4)
    (get.Ai.variable.Yn 5 4)
    (get.Ai.variable.Yn 6 5)
    (get.Ai.variable.Yn 7 6)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.variable.Yn 3 7)
    (call 11 sys←read 4 si)
    (put.Ai.constant 3 1)
    (put.Ai.value.Yn 2 8)
    (put.Ai.variable.Yn 1 3)
    (functor)
    (put.Ai.unsafe.Yn 3 7)
    (put.Ai.value.Yn 2 3)
    (put.Ai.constant 1 1)
    (arg)
    (body.cut)
    (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.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart exprtl 6 si)
)

(ASSEMBLE.CLAUSE ( peepop 2 si ) 23
    (get.Ai.list 1)
    (unify.variable.Xn 3)
    (unify.variable.Xn 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Xn 3)
    (get.Ai.list 1)
    (unify.symbol %()
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.variable.Xn 4)
    (unify.variable.Xn 2)
    (get.Ai.structure 4 atom 1)
    (unify.value.Xn 3)
    (get.Ai.list 2)
    (unify.symbol %()
    (unify.value.Xn 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( peepop 2 si ) 19
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.variable.Xn 3)
    (get.Ai.structure 1 atom 1)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (unify.value.Xn 3)
    (get.Ai.structure 2 infixop 4)
    (unify.value.Xn 1)
    (unify.variable.Xn 2)
    (unify.variable.Xn 3)
    (unify.variable.Xn 4)
    (execute infixop 4 si)
)

(ASSEMBLE.CLAUSE ( peepop 2 si ) 18
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.variable.Xn 3)
    (get.Ai.structure 1 atom 1)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.variable.Xn 2)
    (unify.value.Xn 3)
    (get.Ai.structure 2 postfixop 3)
    (unify.value.Xn 1)
    (unify.variable.Xn 2)
    (unify.variable.Xn 3)
    (execute postfixop 3 si)
)

(ASSEMBLE.CLAUSE ( peepop 2 si ) 3
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 5
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.void 1)
    (execute prefix←is←atom 2 si)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 10
    (get.Ai.structure 1 infixop 4)
    (unify.void 1)
    (unify.variable.Xn 1)
    (unify.void 2)
    (load.value.Xn 1)
    (load.value.Xn 2)
    (not.less.than)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 10
    (get.Ai.structure 1 postfixop 3)
    (unify.void 1)
    (unify.variable.Xn 1)
    (unify.void 1)
    (load.value.Xn 1)
    (load.value.Xn 2)
    (not.less.than)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 4
    (get.Ai.constant 1 %))
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 4
    (get.Ai.constant 1 %])
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 4
    (get.Ai.constant 1 %})
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 8
    (get.Ai.constant 1 %|)
    (load.pos.word 1100)
    (load.value.Xn 2)
    (not.less.than)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 8
    (get.Ai.constant 1 %,)
    (load.pos.word 1000)
    (load.value.Xn 2)
    (not.less.than)
    (proceed)
)

(ASSEMBLE.CLAUSE ( prefix←is←atom 2 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( exprtl0 5 si ) 13
    (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.constant 2 0)
    (execute exprtl 6 si)
)

(ASSEMBLE.CLAUSE ( exprtl 6 si ) 11
    (get.Ai.structure 1 %$syntax←error 2)
    (unify.variable.Xn 7)
    (unify.variable.Xn 1)
    (get.Ai.structure 6 %$syntax←error 2)
    (unify.value.Xn 7)
    (unify.value.Xn 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( exprtl 6 si ) 7
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 5 3)
    (get.Ai.nil 6)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( exprtl 6 si ) 18
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.variable.Xn 8)
    (put.Ai.value.Xn 7 6)
    (head.cut)
    (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 8)
    (execute exprtl1 7 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 110
    (get.Ai.structure 1 atom 1)
    (allocate)
    (unify.variable.Yn 3)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.variable.Yn 3 5)
    (get.Ai.variable.Yn 4 6)
    (get.Ai.variable.Yn 5 7)
    (get.Ai.variable.Yn 6 8)
    (get.Ai.variable.Yn 7 9)
    (put.Ai.variable.Yn 7 1)
    (put.Ai.variable.Yn 6 2)
    (put.Ai.variable.Yn 5 10)
    (put.Ai.variable.Yn 4 11)
    (put.Ai.variable.Yn 3 12)
    (put.Ai.value.Yn 2 7)
    (put.Ai.value.Yn 1 3)
    (call 15 ambigop 7 si)
    (body.cut)
    (either 15 68)
    (put.Ai.value.Yn 2 7)
    (put.Ai.value.Yn 1 4)
    (call 15 prefix←is←atom 2 si)
    (body.cut)
    (put.Ai.value.Yn 7 9)
    (put.Ai.value.Yn 6 8)
    (put.Ai.value.Yn 5 7)
    (put.Ai.value.Yn 4 6)
    (put.Ai.value.Yn 3 5)
    (put.Ai.value.Yn 2 4)
    (put.Ai.structure 1 postfixop 3)
    (unify.value.Yn 3)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (depart exprtl1 7 si)
    (or 91)
    (put.Ai.value.Yn 7 9)
    (put.Ai.value.Yn 6 8)
    (put.Ai.value.Yn 5 7)
    (put.Ai.value.Yn 4 6)
    (put.Ai.value.Yn 3 5)
    (put.Ai.value.Yn 2 4)
    (put.Ai.structure 1 infixop 4)
    (unify.value.Yn 3)
    (unify.local.Yn 12)
    (unify.local.Yn 11)
    (unify.local.Yn 10)
    (depart exprtl1 7 si)
    (or.finally)
    (put.Ai.value.Yn 7 9)
    (put.Ai.value.Yn 6 8)
    (put.Ai.value.Yn 5 7)
    (put.Ai.value.Yn 4 6)
    (put.Ai.value.Yn 3 5)
    (put.Ai.value.Yn 2 4)
    (put.Ai.structure 1 postfixop 3)
    (unify.value.Yn 3)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (depart exprtl1 7 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 50
    (get.Ai.structure 1 atom 1)
    (allocate)
    (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)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 4)
    (call 13 infixop 4 si)
    (body.cut)
    (put.Ai.value.Yn 7 10)
    (put.Ai.value.Yn 6 9)
    (put.Ai.value.Yn 5 8)
    (put.Ai.value.Yn 4 7)
    (put.Ai.value.Yn 3 6)
    (put.Ai.value.Yn 2 5)
    (put.Ai.structure 1 infixop 4)
    (unify.value.Yn 4)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (depart exprtl1 7 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 47
    (get.Ai.structure 1 atom 1)
    (allocate)
    (unify.variable.Yn 3)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.variable.Yn 3 5)
    (get.Ai.variable.Yn 4 6)
    (get.Ai.variable.Yn 5 7)
    (get.Ai.variable.Yn 6 8)
    (get.Ai.variable.Yn 7 9)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.value.Yn 1 3)
    (call 12 postfixop 3 si)
    (body.cut)
    (put.Ai.value.Yn 7 9)
    (put.Ai.value.Yn 6 8)
    (put.Ai.value.Yn 5 7)
    (put.Ai.value.Yn 4 6)
    (put.Ai.value.Yn 3 5)
    (put.Ai.value.Yn 2 4)
    (put.Ai.structure 1 postfixop 3)
    (unify.value.Yn 3)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (depart exprtl1 7 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 72
    (get.Ai.structure 1 infixop 4)
    (allocate)
    (unify.variable.Yn 9)
    (unify.variable.Xn 9)
    (unify.variable.Yn 2)
    (unify.variable.Xn 8)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 4 8)
    (get.Ai.variable.Yn 5 4)
    (get.Ai.variable.Yn 6 5)
    (get.Ai.variable.Yn 7 6)
    (load.value.Yn 4)
    (load.value.Yn 2)
    (not.less.than)
    (load.value.Xn 3)
    (load.value.Xn 9)
    (not.greater.than)
    (head.cut)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.value.Xn 2 8)
    (call 12 sys←read 4 si)
    (put.Ai.constant 3 2)
    (put.Ai.value.Yn 2 9)
    (put.Ai.variable.Yn 1 3)
    (functor)
    (put.Ai.value.Yn 3 8)
    (put.Ai.value.Yn 2 3)
    (put.Ai.constant 1 1)
    (arg)
    (put.Ai.unsafe.Yn 3 7)
    (put.Ai.value.Yn 2 3)
    (put.Ai.constant 1 2)
    (arg)
    (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.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart exprtl 6 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 61
    (get.Ai.structure 1 postfixop 3)
    (unify.variable.Xn 1)
    (unify.variable.Xn 8)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 2 7)
    (get.Ai.variable.Yn 4 8)
    (get.Ai.variable.Yn 5 4)
    (get.Ai.variable.Yn 6 5)
    (get.Ai.variable.Yn 7 6)
    (load.value.Yn 4)
    (load.value.Yn 2)
    (not.less.than)
    (load.value.Xn 3)
    (load.value.Xn 8)
    (not.greater.than)
    (head.cut)
    (put.Ai.constant 3 1)
    (put.Ai.value.Xn 2 1)
    (put.Ai.variable.Yn 1 3)
    (functor)
    (put.Ai.value.Yn 3 8)
    (put.Ai.value.Yn 2 3)
    (put.Ai.constant 1 1)
    (arg)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 7)
    (call 9 peepop 2 si)
    (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.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart exprtl 6 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 51
    (get.Ai.constant 1 %,)
    (put.Ai.value.Xn 1 2)
    (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)
    (load.value.Yn 4)
    (load.pos.word 1000)
    (not.less.than)
    (load.value.Xn 3)
    (load.pos.word 999)
    (not.greater.than)
    (head.cut)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 1000)
    (call 9 sys←read 4 si)
    (put.Ai.value.Yn 6 6)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.structure 3 %, 2)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (put.Ai.constant 2 1000)
    (put.Ai.unsafe.Yn 1 1)
    (depart exprtl 6 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 51
    (get.Ai.constant 1 %|)
    (put.Ai.value.Xn 1 2)
    (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)
    (load.value.Yn 4)
    (load.pos.word 1100)
    (not.less.than)
    (load.value.Xn 3)
    (load.pos.word 1099)
    (not.greater.than)
    (head.cut)
    (put.Ai.variable.Yn 4 1)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 1100)
    (call 9 sys←read 4 si)
    (put.Ai.value.Yn 6 6)
    (put.Ai.value.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.structure 3 %; 2)
    (unify.local.Yn 3)
    (unify.local.Yn 2)
    (put.Ai.constant 2 1100)
    (put.Ai.unsafe.Yn 1 1)
    (depart exprtl 6 si)
)

(ASSEMBLE.CLAUSE ( exprtl1 7 si ) 6
    (get.Ai.value.Xn 6 4)
    (get.Ai.list 7)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( chars←to←byte←buffer 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( chars←to←byte←buffer 1 si ) 11
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (call 4 put←byte 1 si)
    (put.Ai.value.Yn 1 1)
    (depart chars←to←byte←buffer 1 si)
)

(ASSEMBLE.CLAUSE ( digits←to←byte←buffer 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( digits←to←byte←buffer 1 si ) 16
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (load.value.Xn 1)
    (load.pos.word 48)
    (add)
    (store.variable.Xn 1)
    (call 4 put←byte 1 si)
    (put.Ai.value.Yn 1 1)
    (depart digits←to←byte←buffer 1 si)
)

(ASSEMBLE.CLAUSE ( reverse 2 si ) 3
    (put.Ai.nil 3)
    (execute reverse1 3 si)
)

(ASSEMBLE.CLAUSE ( reverse1 3 si ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( reverse1 3 si ) 10
    (get.Ai.list 1)
    (unify.variable.Xn 5)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 4 3)
    (put.Ai.list 3)
    (unify.value.Xn 5)
    (unify.local.Xn 4)
    (execute reverse1 3 si)
)

(ASSEMBLE.CLAUSE ( real←integer 2 si ) 5
    (get.Ai.value.Xn 2 1)
    (allocate)
    (is.a 24)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( real←integer 2 si ) 15
    (get.Ai.list 1)
    (unify.variable.Xn 6)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 5 2)
    (put.Ai.constant 4 1)
    (put.Ai.constant 3 0)
    (put.Ai.value.Xn 2 6)
    (execute base←10←integer 5 si)
)

STOP