(ASSEMBLE.CLAUSE ( alphameric←type 1 si ) 4
    (get.Ai.constant 1 capital←letter)
    (proceed)
)

(ASSEMBLE.CLAUSE ( alphameric←type 1 si ) 4
    (get.Ai.constant 1 small←letter)
    (proceed)
)

(ASSEMBLE.CLAUSE ( alphameric←type 1 si ) 4
    (get.Ai.constant 1 digit)
    (proceed)
)

(ASSEMBLE.CLAUSE ( alphameric←type 1 si ) 4
    (get.Ai.constant 1 underbar)
    (proceed)
)

(ASSEMBLE.CLAUSE ( read←tokens 2 si ) 40
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.symbol 1 user←input)
    (call 6 current←input 1 si)
    (body.cut)
    (put.Ai.symbol 2 %-)
    (put.Ai.symbol 1 term←reading←mode)
    (call 6 maybe←tell←emacs 2 si)
    (put.Ai.variable.Yn 1 1)
    (call 6 getprompt 1 si)
    (call 6 skip←white←space 0 si)
    (call 6 set←continuation←prompt 0 si)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 4 read←the←tokens 2 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart setprompt 1 si)
)

(ASSEMBLE.CLAUSE ( read←tokens 2 si ) 2
    (execute read←the←tokens 2 si)
)

(ASSEMBLE.CLAUSE ( skip←white←space 0 si ) 14
    (allocate)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get←char←token 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart check←for←escape 2 si)
)

(ASSEMBLE.CLAUSE ( check←for←escape 2 si ) 13
    (get.Ai.constant 1 escape)
    (allocate)
    (call 3 under←emacs 0 si)
    (body.cut)
    (call 3 process←escape←sequence 0 si)
    (depart skip←white←space 0 si)
)

(ASSEMBLE.CLAUSE ( check←for←escape 2 si ) 4
    (put.Ai.value.Xn 1 2)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( set←continuation←prompt 0 si ) 20
    (allocate)
    (load.choice.point)
    (store.variable.Yn 1)
    (either 4 17)
    (call 4 under←emacs 0 si)
    (load.value.Yn 1)
    (cut.to.choice.point)
    (put.Ai.symbol 1 |.(MKATOM ""))
    (depart setprompt 1 si)
    (or.finally)
    (put.Ai.symbol 1 % % % % % )
    (depart setprompt 1 si)
)

(ASSEMBLE.CLAUSE ( read←the←tokens 2 si ) 23
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 3)
    (call 6 variable←array 1 si)
    (put.Ai.variable.Yn 1 1)
    (call 6 next←token 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart tokens←to←period 3 si)
)

(ASSEMBLE.CLAUSE ( tokens←to←period 3 si ) 7
    (get.Ai.constant 1 end←of←clause)
    (get.Ai.nil 2)
    (head.cut)
    (execute flush←to←eol 0 si)
)

(ASSEMBLE.CLAUSE ( tokens←to←period 3 si ) 8
    (get.Ai.constant 1 end←of←stream)
    (get.Ai.list 2)
    (unify.symbol end←of←stream)
    (unify.nil)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( tokens←to←period 3 si ) 24
    (get.Ai.list 2)
    (unify.local.Xn 1)
    (allocate)
    (unify.variable.Yn 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 3)
    (call 6 absorb←variable 2 si)
    (put.Ai.variable.Yn 1 1)
    (call 6 next←token 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart tokens←to←period 3 si)
)

(ASSEMBLE.CLAUSE ( absorb←variable 2 si ) 12
    (get.Ai.structure 1 var 2)
    (unify.variable.Xn 4)
    (unify.variable.Xn 1)
    (put.Ai.value.Xn 3 2)
    (head.cut)
    (put.Ai.value.Xn 2 4)
    (execute lookup←variable 3 si)
)

(ASSEMBLE.CLAUSE ( absorb←variable 2 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( flush←to←eol 0 si ) 14
    (allocate)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get←char 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart flush←to←eol 2 si)
)

(ASSEMBLE.CLAUSE ( flush←to←eol 2 si ) 7
    (get.Ai.constant 1 white←space)
    (get.Ai.constant 2 13)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( flush←to←eol 2 si ) 18
    (get.Ai.constant 1 white←space)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get←char 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart flush←to←eol 2 si)
)

(ASSEMBLE.CLAUSE ( flush←to←eol 2 si ) 4
    (put.Ai.value.Xn 1 2)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( next←token 1 si ) 20
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char←token 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 token←start 3 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 21
    (get.Ai.constant 1 white←space)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token←start←white 3 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 6
    (get.Ai.constant 1 end←of←stream)
    (get.Ai.symbol 3 end←of←stream)
    (proceed)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 29
    (get.Ai.constant 1 digit)
    (allocate)
    (get.Ai.variable.Yn 3 4)
    (load.value.Xn 2)
    (load.pos.word 48)
    (subtract)
    (store.variable.Yn 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 7 get←char 2 si)
    (put.Ai.value.Yn 4 4)
    (put.Ai.list 3)
    (unify.value.Yn 3)
    (unify.nil)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart number←seq 4 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 22
    (get.Ai.constant 1 single←quote)
    (get.Ai.structure 3 atom 1)
    (allocate)
    (unify.variable.Yn 2)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.constant 1 39)
    (call 5 read←string 2 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart string←to←atom 2 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 12
    (get.Ai.constant 1 double←quote)
    (get.Ai.structure 3 string 1)
    (unify.variable.Xn 2)
    (put.Ai.constant 1 34)
    (execute read←string 2 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 17
    (get.Ai.constant 1 small←letter)
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (allocate)
    (unify.variable.Yn 1)
    (call 4 p←alphameric 1 si)
    (put.Ai.value.Yn 1 1)
    (depart intern←symbol 1 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 28
    (get.Ai.constant 1 underbar)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.structure 3 var 2)
    (unify.void 1)
    (unify.variable.Yn 4)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 7 get←char 2 si)
    (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 var←seq2 4 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 28
    (get.Ai.constant 1 capital←letter)
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.structure 3 var 2)
    (unify.void 1)
    (unify.variable.Yn 4)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 7 get←char 2 si)
    (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 var←seq2 4 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 46)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token←period 3 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 47)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token←slash 3 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 35)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token←hash 3 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 11
    (get.Ai.constant 1 agglutinating)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Xn 3)
    (put.Ai.symbol 1 agglutinating)
    (execute agglutinating←seq 3 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 17
    (get.Ai.constant 1 percent)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get0 1 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token←after←cr 2 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 9
    (get.Ai.constant 1 individual←char)
    (put.Ai.value.Xn 1 2)
    (put.Ai.value.Xn 2 3)
    (execute individual←char←symbol 2 si)
)

(ASSEMBLE.CLAUSE ( token←start 3 si ) 11
    (get.Ai.constant 1 individual←atom)
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Xn 2)
    (execute individual←atom←symbol 2 si)
)

(ASSEMBLE.CLAUSE ( token←start←white 3 si ) 9
    (get.Ai.constant 1 individual←char)
    (get.Ai.constant 2 40)
    (get.Ai.symbol 3 % %()
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( token←start←white 3 si ) 2
    (execute token←start 3 si)
)

(ASSEMBLE.CLAUSE ( string←to←atom 2 si ) 14
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (call 5 clear←byte←buffer 0 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart build←an←atom 2 si)
)

(ASSEMBLE.CLAUSE ( build←an←atom 2 si ) 7
    (get.Ai.constant 1 NIL)
    (put.Ai.value.Xn 1 2)
    (execute intern←symbol 1 si)
)

(ASSEMBLE.CLAUSE ( build←an←atom 2 si ) 15
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (call 5 put←byte 1 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart build←an←atom 2 si)
)

(ASSEMBLE.CLAUSE ( token←period 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 46)
    (call 5 put←byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating←seq 3 si)
)

(ASSEMBLE.CLAUSE ( token←period 3 si ) 10
    (get.Ai.constant 1 white←space)
    (put.Ai.value.Xn 1 2)
    (get.Ai.symbol 3 end←of←clause)
    (head.cut)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( token←period 3 si ) 10
    (get.Ai.constant 1 end←of←stream)
    (put.Ai.value.Xn 1 2)
    (get.Ai.symbol 3 end←of←clause)
    (head.cut)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( token←period 3 si ) 16
    (get.Ai.constant 1 digit)
    (get.Ai.structure 3 fraction 1)
    (unify.list)
    (unify.constant 46)
    (unify.variable.Xn 3)
    (head.cut)
    (put.Ai.symbol 1 digit)
    (execute float←seq 3 si)
)

(ASSEMBLE.CLAUSE ( token←period 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %.)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( token←slash 3 si ) 24
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 42)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 get0 1 si)
    (put.Ai.unsafe.Yn 1 2)
    (call 4 after←slash←comment 1 si)
    (put.Ai.value.Yn 1 1)
    (depart next←token 1 si)
)

(ASSEMBLE.CLAUSE ( token←slash 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 47)
    (call 5 put←byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating←seq 3 si)
)

(ASSEMBLE.CLAUSE ( token←slash 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %/)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( after←slash←comment 1 si ) 14
    (get.Ai.constant 1 42)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart after←star 1 si)
)

(ASSEMBLE.CLAUSE ( after←slash←comment 1 si ) 10
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart after←slash←comment 1 si)
)

(ASSEMBLE.CLAUSE ( after←star 1 si ) 4
    (get.Ai.constant 1 47)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( after←star 1 si ) 2
    (execute after←slash←comment 1 si)
)

(ASSEMBLE.CLAUSE ( token←hash 3 si ) 28
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 35)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (call 6 development 0 si)
    (body.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart more←token←hash 3 si)
)

(ASSEMBLE.CLAUSE ( token←hash 3 si ) 25
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 35)
    (call 5 put←byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating←seq 3 si)
)

(ASSEMBLE.CLAUSE ( token←hash 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %#)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( more←token←hash 3 si ) 22
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (gettopval QP%.CONDIT%.READING)
    (store.integer 1)
    (head.cut)
    (load.pos.word 0)
    (settopval QP%.CONDIT%.READING)
    (call 4 unget0 1 si)
    (put.Ai.value.Yn 1 1)
    (depart next←token 1 si)
)

(ASSEMBLE.CLAUSE ( more←token←hash 3 si ) 27
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 43)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 read 1 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.constant 1 43)
    (call 4 do←hash←conditional 2 si)
    (put.Ai.value.Yn 1 1)
    (depart next←token 1 si)
)

(ASSEMBLE.CLAUSE ( more←token←hash 3 si ) 27
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 45)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 read 1 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.constant 1 45)
    (call 4 do←hash←conditional 2 si)
    (put.Ai.value.Yn 1 1)
    (depart next←token 1 si)
)

(ASSEMBLE.CLAUSE ( more←token←hash 3 si ) 31
    (get.Ai.constant 1 agglutinating)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.structure 3 atom 1)
    (unify.variable.Yn 2)
    (head.cut)
    (put.Ai.constant 1 35)
    (call 5 put←byte 1 si)
    (put.Ai.constant 1 35)
    (call 5 put←byte 1 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.symbol 1 agglutinating)
    (depart agglutinating←seq 3 si)
)

(ASSEMBLE.CLAUSE ( more←token←hash 3 si ) 9
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 3 atom 1)
    (unify.symbol %#%#)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( do←hash←conditional 2 si ) 15
    (get.Ai.constant 1 43)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (call 3 call 1 interp)
    (body.cut)
    (load.pos.word 1)
    (settopval QP%.CONDIT%.READING)
    (progress)
)

(ASSEMBLE.CLAUSE ( do←hash←conditional 2 si ) 19
    (get.Ai.constant 1 45)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (call 4 call 1 interp)
    (body.cut)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart skip←until←end←conditional 1 si)
)

(ASSEMBLE.CLAUSE ( do←hash←conditional 2 si ) 13
    (get.Ai.constant 1 43)
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart skip←until←end←conditional 1 si)
)

(ASSEMBLE.CLAUSE ( do←hash←conditional 2 si ) 8
    (get.Ai.constant 1 45)
    (load.pos.word 1)
    (settopval QP%.CONDIT%.READING)
    (proceed)
)

(ASSEMBLE.CLAUSE ( skip←until←end←conditional 1 si ) 14
    (get.Ai.constant 1 35)
    (head.cut)
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart after←end←hash 1 si)
)

(ASSEMBLE.CLAUSE ( skip←until←end←conditional 1 si ) 10
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 get0 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (depart skip←until←end←conditional 1 si)
)

(ASSEMBLE.CLAUSE ( after←end←hash 1 si ) 4
    (get.Ai.constant 1 35)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( after←end←hash 1 si ) 2
    (execute skip←until←end←conditional 1 si)
)

(ASSEMBLE.CLAUSE ( token←after←cr 2 si ) 8
    (get.Ai.constant 1 13)
    (put.Ai.value.Xn 1 2)
    (head.cut)
    (execute next←token 1 si)
)

(ASSEMBLE.CLAUSE ( token←after←cr 2 si ) 6
    (get.Ai.constant 1 -1)
    (get.Ai.symbol 2 end←of←stream)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( token←after←cr 2 si ) 14
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 5 get0 1 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart token←after←cr 2 si)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 40)
    (get.Ai.symbol 2 %()
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 41)
    (get.Ai.symbol 2 %))
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 44)
    (get.Ai.symbol 2 %,)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 91)
    (get.Ai.symbol 2 %[)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 93)
    (get.Ai.symbol 2 %])
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 123)
    (get.Ai.symbol 2 %{)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 124)
    (get.Ai.symbol 2 %|)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←char←symbol 2 si ) 6
    (get.Ai.constant 1 125)
    (get.Ai.symbol 2 %})
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←atom←symbol 2 si ) 6
    (get.Ai.constant 1 33)
    (get.Ai.symbol 2 %!)
    (proceed)
)

(ASSEMBLE.CLAUSE ( individual←atom←symbol 2 si ) 6
    (get.Ai.constant 1 59)
    (get.Ai.symbol 2 %;)
    (proceed)
)

(ASSEMBLE.CLAUSE ( number←seq 4 si ) 63
    (get.Ai.constant 1 single←quote)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.list 3)
    (unify.variable.Yn 3)
    (unify.variable.Yn 2)
    (get.Ai.structure 4 integer 1)
    (unify.variable.Yn 4)
    (head.cut)
    (put.Ai.variable.Yn 5 7)
    (put.Ai.constant 4 1)
    (put.Ai.constant 3 0)
    (put.Ai.value.Yn 2 3)
    (put.Ai.value.Yn 1 2)
    (call 10 base←10←integer 5 si)
    (put.Ai.variable.Yn 2 6)
    (put.Ai.variable.Yn 1 5)
    (call 10 get←char 2 si)
    (load.value.Yn 7)
    (load.pos.word 37)
    (less.than.else 56)
    (put.Ai.value.Yn 5 4)
    (put.Ai.unsafe.Yn 4 7)
    (put.Ai.constant 3 0)
    (put.Ai.unsafe.Yn 2 6)
    (put.Ai.unsafe.Yn 1 5)
    (depart based←integer 5 si)
    (put.Ai.value.Yn 1 4)
    (get.Ai.list 1)
    (unify.value.Yn 3)
    (unify.value.Yn 2)
    (put.Ai.value.Yn 1 1)
    (depart unget0 1 si)
)

(ASSEMBLE.CLAUSE ( number←seq 4 si ) 32
    (get.Ai.constant 1 digit)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (get.Ai.variable.Yn 4 5)
    (head.cut)
    (load.value.Xn 2)
    (load.pos.word 48)
    (subtract)
    (store.variable.Yn 4)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 8 get←char 2 si)
    (put.Ai.value.Yn 4 5)
    (put.Ai.list 3)
    (unify.value.Yn 4)
    (unify.local.Yn 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart number←seq 4 si)
)

(ASSEMBLE.CLAUSE ( number←seq 4 si ) 8
    (put.Ai.value.Xn 1 2)
    (get.Ai.structure 4 integer 1)
    (unify.local.Xn 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( based←integer 5 si ) 6
    (get.Ai.constant 4 0)
    (get.Ai.value.Xn 5 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( based←integer 5 si ) 41
    (get.Ai.constant 1 capital←letter)
    (allocate)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (load.value.Xn 2)
    (add.neg.word -55)
    (store.variable.Xn 1)
    (load.value.Yn 4)
    (load.value.Xn 1)
    (greater.than)
    (head.cut)
    (load.value.Xn 3)
    (load.value.Yn 4)
    (multiply)
    (load.value.Xn 1)
    (add)
    (store.variable.Yn 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 8 get←char 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.unsafe.Yn 1 1)
    (depart based←integer 5 si)
)

(ASSEMBLE.CLAUSE ( based←integer 5 si ) 11
    (get.Ai.constant 1 small←letter)
    (load.value.Xn 2)
    (add.neg.word -32)
    (store.variable.Xn 2)
    (put.Ai.symbol 1 capital←letter)
    (execute based←integer 5 si)
)

(ASSEMBLE.CLAUSE ( based←integer 5 si ) 42
    (get.Ai.constant 1 digit)
    (allocate)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 5)
    (load.value.Xn 2)
    (load.pos.word 48)
    (subtract)
    (store.variable.Xn 1)
    (load.value.Yn 4)
    (load.value.Xn 1)
    (greater.than)
    (head.cut)
    (load.value.Xn 3)
    (load.value.Yn 4)
    (multiply)
    (load.value.Xn 1)
    (add)
    (store.variable.Yn 3)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 8 get←char 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.unsafe.Yn 1 1)
    (depart based←integer 5 si)
)

(ASSEMBLE.CLAUSE ( based←integer 5 si ) 6
    (put.Ai.value.Xn 1 2)
    (get.Ai.value.Xn 5 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( base←10←integer 5 si ) 12
    (get.Ai.constant 1 NIL)
    (load.value.Xn 2)
    (load.value.Xn 4)
    (multiply)
    (store.variable.Xn 1)
    (load.value.Xn 3)
    (load.value.Xn 1)
    (add)
    (store.value.Xn 5)
    (proceed)
)

(ASSEMBLE.CLAUSE ( base←10←integer 5 si ) 20
    (get.Ai.list 1)
    (unify.variable.Xn 6)
    (unify.variable.Xn 1)
    (load.value.Xn 2)
    (load.value.Xn 4)
    (multiply)
    (store.variable.Xn 2)
    (load.value.Xn 3)
    (load.value.Xn 2)
    (add)
    (store.variable.Xn 3)
    (load.pos.word 10)
    (load.value.Xn 4)
    (multiply)
    (store.variable.Xn 4)
    (put.Ai.value.Xn 2 6)
    (execute base←10←integer 5 si)
)

(ASSEMBLE.CLAUSE ( float←seq 3 si ) 23
    (get.Ai.constant 1 digit)
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart float←seq 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq 3 si ) 2
    (execute float←seq←exp 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp 3 si ) 28
    (get.Ai.constant 1 small←letter)
    (get.Ai.constant 2 101)
    (get.Ai.list 3)
    (unify.constant 69)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart float←seq←exp←sign 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp 3 si ) 28
    (get.Ai.constant 1 capital←letter)
    (get.Ai.constant 2 69)
    (get.Ai.list 3)
    (unify.constant 69)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart float←seq←exp←sign 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp 3 si ) 5
    (put.Ai.value.Xn 1 2)
    (get.Ai.nil 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp←sign 3 si ) 28
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 45)
    (get.Ai.list 3)
    (unify.constant 45)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart float←seq←exp←nums 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp←sign 3 si ) 28
    (get.Ai.constant 1 agglutinating)
    (get.Ai.constant 2 43)
    (get.Ai.list 3)
    (unify.constant 43)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart float←seq←exp←nums 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp←sign 3 si ) 2
    (execute float←seq←exp←nums 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp←nums 3 si ) 23
    (get.Ai.constant 1 digit)
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (allocate)
    (unify.variable.Yn 3)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart float←seq←exp←nums 3 si)
)

(ASSEMBLE.CLAUSE ( float←seq←exp←nums 3 si ) 5
    (put.Ai.value.Xn 1 2)
    (get.Ai.nil 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( agglutinating←seq 3 si ) 27
    (get.Ai.constant 1 agglutinating)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (call 6 put←byte 1 si)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 1)
    (call 6 get←char 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart agglutinating←seq 3 si)
)

(ASSEMBLE.CLAUSE ( agglutinating←seq 3 si ) 12
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (call 4 unget0 1 si)
    (put.Ai.value.Yn 1 1)
    (depart intern←symbol 1 si)
)

(ASSEMBLE.CLAUSE ( read←string 2 si ) 26
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 3)
    (put.Ai.symbol 1 character←escapes)
    (call 6 prolog←flag 3 si)
    (put.Ai.unsafe.Yn 1 3)
    (get.Ai.constant 1 on)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart read←string←with←esc 2 si)
)

(ASSEMBLE.CLAUSE ( read←string 2 si ) 2
    (execute read←string←without←esc 2 si)
)

(ASSEMBLE.CLAUSE ( read←string←with←esc 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 1 4)
    (call 7 get0 1 si)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 interp←char←with←esc 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart process←char←with←esc 3 si)
)

(ASSEMBLE.CLAUSE ( process←char←with←esc 3 si ) 5
    (get.Ai.constant 2 -2)
    (get.Ai.nil 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( process←char←with←esc 3 si ) 5
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (unify.variable.Xn 2)
    (execute read←string←with←esc 2 si)
)

(ASSEMBLE.CLAUSE ( read←string←without←esc 2 si ) 27
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 1 4)
    (call 7 get0 1 si)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 1)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 interp←char←without←esc 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart process←char←without←esc 3 si)
)

(ASSEMBLE.CLAUSE ( process←char←without←esc 3 si ) 5
    (get.Ai.constant 2 -2)
    (get.Ai.nil 3)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( process←char←without←esc 3 si ) 5
    (get.Ai.list 3)
    (unify.local.Xn 2)
    (unify.variable.Xn 2)
    (execute read←string←without←esc 2 si)
)

(ASSEMBLE.CLAUSE ( interp←char←with←esc 3 si ) 31
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.value.Yn 2 3)
    (get.Ai.variable.Yn 3 2)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (load.value.Yn 1)
    (load.value.Yn 3)
    (equal.to.else 24)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 2)
    (progress)
    (put.Ai.value.Yn 1 2)
    (get.Ai.constant 1 -2)
    (put.Ai.unsafe.Yn 1 1)
    (depart unget0 1 si)
)

(ASSEMBLE.CLAUSE ( interp←char←with←esc 3 si ) 22
    (get.Ai.constant 1 92)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart read←escape←seq 3 si)
)

(ASSEMBLE.CLAUSE ( interp←char←with←esc 3 si ) 32
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.value.Yn 3 1)
    (either 4 20)
    (load.value.Yn 1)
    (load.pos.word 33)
    (not.less.than)
    (load.value.Yn 1)
    (load.pos.word 126)
    (not.greater.than)
    (jump.to 33)
    (or 28)
    (load.value.Yn 1)
    (load.pos.word 9)
    (equal.to)
    (jump.to 33)
    (or.finally)
    (load.value.Yn 1)
    (load.pos.word 32)
    (equal.to)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( interp←char←with←esc 3 si ) 5
    (get.Ai.constant 1 -1)
    (head.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( interp←char←with←esc 3 si ) 10
    (get.Ai.constant 3 -2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 141)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( read←escape←seq 3 si ) 35
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (either 7 18)
    (load.value.Yn 4)
    (load.pos.word 32)
    (not.greater.than)
    (jump.to 23)
    (or.finally)
    (load.value.Yn 4)
    (load.pos.word 127)
    (not.less.than)
    (body.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart interp←char←with←esc 3 si)
)

(ASSEMBLE.CLAUSE ( read←escape←seq 3 si ) 84
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 3 1)
    (load.value.Yn 2)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Yn 2)
    (load.pos.word 55)
    (not.greater.than)
    (head.cut)
    (put.Ai.variable.Yn 1 3)
    (call 7 get0 1 si)
    (load.value.Yn 3)
    (load.pos.word 48)
    (not.less.than.else 76)
    (load.value.Yn 3)
    (load.pos.word 55)
    (not.greater.than.else 76)
    (put.Ai.variable.Yn 1 4)
    (call 7 get0 1 si)
    (load.value.Yn 4)
    (load.pos.word 48)
    (not.less.than.else 61)
    (load.value.Yn 4)
    (load.pos.word 55)
    (not.greater.than.else 61)
    (load.value.Yn 2)
    (load.pos.word 8)
    (multiply)
    (load.value.Yn 3)
    (add)
    (load.pos.word 8)
    (multiply)
    (load.value.Yn 4)
    (add)
    (add.neg.word -3504)
    (store.value.Yn 1)
    (progress)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 unget0 1 si)
    (load.value.Yn 2)
    (load.pos.word 8)
    (multiply)
    (load.value.Yn 3)
    (add)
    (add.neg.word -432)
    (store.value.Yn 1)
    (progress)
    (put.Ai.unsafe.Yn 1 3)
    (call 5 unget0 1 si)
    (load.value.Yn 2)
    (add.neg.word -48)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( read←escape←seq 3 si ) 22
    (get.Ai.constant 1 99)
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart interp←char←with←esc 3 si)
)

(ASSEMBLE.CLAUSE ( read←escape←seq 3 si ) 18
    (get.Ai.constant 1 94)
    (allocate)
    (get.Ai.variable.Yn 3 1)
    (head.cut)
    (put.Ai.variable.Yn 1 2)
    (call 5 get0 1 si)
    (load.value.Yn 2)
    (load.pos.word 31)
    (boolean.and)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( read←escape←seq 3 si ) 7
    (put.Ai.value.Xn 2 3)
    (allocate)
    (call 3 escape←char 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( read←escape←seq 3 si ) 3
    (get.Ai.value.Xn 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 98)
    (get.Ai.constant 2 8)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 100)
    (get.Ai.constant 2 127)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 101)
    (get.Ai.constant 2 27)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 102)
    (get.Ai.constant 2 12)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 110)
    (get.Ai.constant 2 13)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 114)
    (get.Ai.constant 2 13)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 116)
    (get.Ai.constant 2 9)
    (proceed)
)

(ASSEMBLE.CLAUSE ( escape←char 2 si ) 7
    (get.Ai.constant 1 118)
    (get.Ai.constant 2 11)
    (proceed)
)

(ASSEMBLE.CLAUSE ( interp←char←without←esc 3 si ) 31
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (get.Ai.value.Yn 2 3)
    (get.Ai.variable.Yn 3 2)
    (head.cut)
    (put.Ai.variable.Yn 1 1)
    (call 6 get0 1 si)
    (load.value.Yn 1)
    (load.value.Yn 3)
    (equal.to.else 24)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 2)
    (progress)
    (put.Ai.value.Yn 1 2)
    (get.Ai.constant 1 -2)
    (put.Ai.unsafe.Yn 1 1)
    (depart unget0 1 si)
)

(ASSEMBLE.CLAUSE ( interp←char←without←esc 3 si ) 5
    (get.Ai.constant 1 -1)
    (head.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( interp←char←without←esc 3 si ) 3
    (get.Ai.value.Xn 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( process←escape←sequence 0 si ) 12
    (allocate)
    (put.Ai.variable.Yn 1 1)
    (call 4 read←directly 1 si)
    (put.Ai.unsafe.Yn 1 1)
    (call 3 dispatch←term 1 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( process←escape←sequence 0 si ) 1
    (proceed)
)

(ASSEMBLE.CLAUSE ( dispatch←term 1 si ) 8
    (get.Ai.structure 1 %$editor←load←code 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (head.cut)
    (execute %$editor←load←code 2 si)
)

(ASSEMBLE.CLAUSE ( dispatch←term 1 si ) 8
    (get.Ai.structure 1 find←predicate1 2)
    (unify.variable.Xn 1)
    (unify.variable.Xn 2)
    (head.cut)
    (execute find←predicate1 2 si)
)

(ASSEMBLE.CLAUSE ( dispatch←term 1 si ) 6
    (get.Ai.constant 1 capture←version)
    (head.cut)
    (execute capture←version 0 si)
)

(ASSEMBLE.CLAUSE ( dispatch←term 1 si ) 6
    (get.Ai.constant 1 capture←root)
    (head.cut)
    (execute capture←root 0 si)
)

(ASSEMBLE.CLAUSE ( dispatch←term 1 si ) 7
    (get.Ai.structure 1 find←library←package 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute find←library←package 1 si)
)

(ASSEMBLE.CLAUSE ( dispatch←term 1 si ) 7
    (get.Ai.structure 1 manual 1)
    (unify.variable.Xn 1)
    (head.cut)
    (execute manual 1 si)
)

(ASSEMBLE.CLAUSE ( dispatch←term 1 si ) 2
    (execute call 1 interp)
)

STOP