(ASSEMBLE.CLAUSE ( var←seq1 3 si ) 26
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 4)
    (call 7 alphameric←type 1 si)
    (body.cut)
    (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 ( var←seq1 3 si ) 5
    (put.Ai.value.Xn 1 2)
    (get.Ai.nil 3)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( var←seq2 4 si ) 35
    (allocate)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 6)
    (get.Ai.variable.Yn 4 4)
    (call 9 alphameric←type 1 si)
    (body.cut)
    (load.value.Yn 6)
    (load.pos.word 7)
    (left.shift)
    (load.value.Yn 5)
    (boolean.or)
    (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.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart var←seq3 4 si)
)

(ASSEMBLE.CLAUSE ( var←seq2 4 si ) 7
    (put.Ai.value.Xn 1 2)
    (get.Ai.list 4)
    (unify.local.Xn 3)
    (unify.nil)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( var←seq3 4 si ) 35
    (allocate)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 6)
    (get.Ai.variable.Yn 4 4)
    (call 9 alphameric←type 1 si)
    (body.cut)
    (load.value.Yn 6)
    (load.pos.word 7)
    (left.shift)
    (load.value.Yn 5)
    (boolean.or)
    (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.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart var←seq4 4 si)
)

(ASSEMBLE.CLAUSE ( var←seq3 4 si ) 7
    (put.Ai.value.Xn 1 2)
    (get.Ai.list 4)
    (unify.local.Xn 3)
    (unify.nil)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( var←seq4 4 si ) 34
    (allocate)
    (get.Ai.variable.Yn 2 5)
    (get.Ai.variable.Yn 3 6)
    (get.Ai.list 4)
    (unify.variable.Yn 4)
    (unify.variable.Yn 3)
    (call 9 alphameric←type 1 si)
    (body.cut)
    (load.value.Yn 6)
    (load.pos.word 7)
    (left.shift)
    (load.value.Yn 5)
    (boolean.or)
    (store.value.Yn 4)
    (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 var←seq1 3 si)
)

(ASSEMBLE.CLAUSE ( var←seq4 4 si ) 7
    (put.Ai.value.Xn 1 2)
    (get.Ai.list 4)
    (unify.local.Xn 3)
    (unify.nil)
    (execute unget0 1 si)
)

(ASSEMBLE.CLAUSE ( variable←array 1 si ) 5
    (get.Ai.structure 1 v 16)
    (unify.void 16)
    (proceed)
)

(ASSEMBLE.CLAUSE ( lookup←variable 3 si ) 6
    (get.Ai.list 1)
    (unify.constant 95)
    (unify.nil)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( lookup←variable 3 si ) 31
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 4)
    (put.Ai.variable.Yn 2 5)
    (put.Ai.value.Yn 1 1)
    (call 8 var←hash 2 si)
    (load.value.Yn 5)
    (add.pos.word 1)
    (store.variable.Xn 1)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 4)
    (arg)
    (put.Ai.unsafe.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart in←bucket 3 si)
)

(ASSEMBLE.CLAUSE ( var←hash 2 si ) 9
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.void 1)
    (load.value.Xn 1)
    (load.pos.word 15)
    (boolean.and)
    (store.value.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( in←bucket 3 si ) 23
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 1 3)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 1 3)
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.void 1)
    (get.Ai.structure 1 var 3)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (unify.void 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( in←bucket 3 si ) 12
    (get.Ai.list 3)
    (unify.variable.Xn 3)
    (unify.void 1)
    (get.Ai.structure 3 var 3)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (unify.constant 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( in←bucket 3 si ) 5
    (get.Ai.list 3)
    (unify.void 1)
    (unify.variable.Xn 3)
    (execute in←bucket 3 si)
)

(ASSEMBLE.CLAUSE ( transform←variables 3 si ) 13
    (put.Ai.value.Xn 5 3)
    (put.Ai.nil 6)
    (put.Ai.nil 4)
    (put.Ai.value.Xn 3 2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.constant 1 1)
    (execute transform←array 6 si)
)

(ASSEMBLE.CLAUSE ( transform←array 6 si ) 8
    (get.Ai.constant 1 17)
    (get.Ai.value.Xn 4 3)
    (get.Ai.value.Xn 6 5)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( transform←array 6 si ) 47
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 8)
    (get.Ai.variable.Yn 4 4)
    (get.Ai.variable.Yn 5 9)
    (get.Ai.variable.Yn 6 6)
    (load.value.Xn 1)
    (add.pos.word 1)
    (store.variable.Yn 1)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.value.Yn 2 2)
    (arg)
    (put.Ai.variable.Yn 5 5)
    (put.Ai.value.Yn 4 9)
    (put.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 2 8)
    (put.Ai.unsafe.Yn 1 7)
    (call 9 transform←bucket 5 si)
    (put.Ai.value.Yn 6 6)
    (put.Ai.unsafe.Yn 5 5)
    (put.Ai.value.Yn 4 4)
    (put.Ai.unsafe.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart transform←array 6 si)
)

(ASSEMBLE.CLAUSE ( transform←bucket 5 si ) 7
    (get.Ai.value.Xn 3 2)
    (get.Ai.value.Xn 5 4)
    (allocate)
    (is.a 1)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( transform←bucket 5 si ) 25
    (get.Ai.list 1)
    (unify.variable.Xn 6)
    (unify.variable.Xn 1)
    (get.Ai.structure 6 var 3)
    (unify.variable.Xn 6)
    (unify.variable.Xn 7)
    (unify.constant 0)
    (get.Ai.list 2)
    (unify.variable.Xn 8)
    (unify.variable.Xn 2)
    (get.Ai.structure 8 %= 2)
    (unify.value.Xn 6)
    (unify.value.Xn 7)
    (get.Ai.list 4)
    (unify.value.Xn 6)
    (unify.variable.Xn 4)
    (head.cut)
    (execute transform←bucket 5 si)
)

(ASSEMBLE.CLAUSE ( transform←bucket 5 si ) 19
    (get.Ai.list 1)
    (unify.variable.Xn 6)
    (unify.variable.Xn 1)
    (get.Ai.structure 6 var 3)
    (unify.variable.Xn 7)
    (unify.variable.Xn 6)
    (unify.void 1)
    (get.Ai.list 2)
    (unify.variable.Xn 8)
    (unify.variable.Xn 2)
    (get.Ai.structure 8 %= 2)
    (unify.value.Xn 7)
    (unify.value.Xn 6)
    (execute transform←bucket 5 si)
)

(ASSEMBLE.CLAUSE ( make←atom 2 si ) 17
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 1)
    (call 5 clear←byte←buffer 0 si)
    (put.Ai.value.Yn 1 2)
    (call 4 make←atom 1 si)
    (put.Ai.value.Yn 1 1)
    (depart intern←symbol 1 si)
)

(ASSEMBLE.CLAUSE ( make←atom 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( make←atom 1 si ) 46
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (allocate)
    (unify.variable.Yn 1)
    (load.value.Xn 4)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 3)
    (load.value.Xn 3)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 2)
    (load.value.Xn 2)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 1)
    (load.value.Xn 2)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 2)
    (load.value.Xn 3)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 3)
    (load.value.Xn 4)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 4)
    (call 4 put←bytes 4 si)
    (put.Ai.value.Yn 1 1)
    (depart make←atom 1 si)
)

(ASSEMBLE.CLAUSE ( put←bytes 4 si ) 14
    (get.Ai.constant 1 0)
    (get.Ai.constant 2 0)
    (get.Ai.constant 3 0)
    (put.Ai.value.Xn 1 4)
    (head.cut)
    (execute put←byte 1 si)
)

(ASSEMBLE.CLAUSE ( put←bytes 4 si ) 19
    (get.Ai.constant 1 0)
    (get.Ai.constant 2 0)
    (put.Ai.value.Xn 1 3)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (head.cut)
    (call 4 put←byte 1 si)
    (put.Ai.value.Yn 1 1)
    (depart put←byte 1 si)
)

(ASSEMBLE.CLAUSE ( put←bytes 4 si ) 23
    (get.Ai.constant 1 0)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 1)
    (head.cut)
    (call 5 put←byte 1 si)
    (put.Ai.value.Yn 1 2)
    (call 4 put←byte 1 si)
    (put.Ai.value.Yn 1 1)
    (depart put←byte 1 si)
)

(ASSEMBLE.CLAUSE ( put←bytes 4 si ) 24
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 1)
    (call 6 put←byte 1 si)
    (put.Ai.value.Yn 1 3)
    (call 5 put←byte 1 si)
    (put.Ai.value.Yn 1 2)
    (call 4 put←byte 1 si)
    (put.Ai.value.Yn 1 1)
    (depart put←byte 1 si)
)

(ASSEMBLE.CLAUSE ( print←variable←name 1 si ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( print←variable←name 1 si ) 46
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (allocate)
    (unify.variable.Yn 1)
    (load.value.Xn 4)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 3)
    (load.value.Xn 3)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 2)
    (load.value.Xn 2)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 1)
    (load.value.Xn 2)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 2)
    (load.value.Xn 3)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 3)
    (load.value.Xn 4)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 4)
    (call 4 print←bytes 4 si)
    (put.Ai.value.Yn 1 1)
    (depart print←variable←name 1 si)
)

(ASSEMBLE.CLAUSE ( print←bytes 4 si ) 14
    (get.Ai.constant 1 0)
    (get.Ai.constant 2 0)
    (get.Ai.constant 3 0)
    (put.Ai.value.Xn 1 4)
    (head.cut)
    (execute put 1 si)
)

(ASSEMBLE.CLAUSE ( print←bytes 4 si ) 19
    (get.Ai.constant 1 0)
    (get.Ai.constant 2 0)
    (put.Ai.value.Xn 1 3)
    (allocate)
    (get.Ai.variable.Yn 4 1)
    (head.cut)
    (call 4 put 1 si)
    (put.Ai.value.Yn 1 1)
    (depart put 1 si)
)

(ASSEMBLE.CLAUSE ( print←bytes 4 si ) 23
    (get.Ai.constant 1 0)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 1)
    (head.cut)
    (call 5 put 1 si)
    (put.Ai.value.Yn 1 2)
    (call 4 put 1 si)
    (put.Ai.value.Yn 1 1)
    (depart put 1 si)
)

(ASSEMBLE.CLAUSE ( print←bytes 4 si ) 24
    (allocate)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 2)
    (get.Ai.variable.Yn 4 1)
    (call 6 put 1 si)
    (put.Ai.value.Yn 1 3)
    (call 5 put 1 si)
    (put.Ai.value.Yn 1 2)
    (call 4 put 1 si)
    (put.Ai.value.Yn 1 1)
    (depart put 1 si)
)

(ASSEMBLE.CLAUSE ( underscore←first 1 si ) 40
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (unify.void 1)
    (load.value.Xn 4)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 3)
    (load.value.Xn 3)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 2)
    (load.value.Xn 2)
    (load.pos.word 7)
    (right.shift)
    (store.variable.Xn 1)
    (load.value.Xn 1)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 1)
    (load.value.Xn 2)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 2)
    (load.value.Xn 3)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 3)
    (load.value.Xn 4)
    (load.pos.word 127)
    (boolean.and)
    (store.variable.Xn 4)
    (execute underscore←first 4 si)
)

(ASSEMBLE.CLAUSE ( underscore←first 4 si ) 4
    (get.Ai.constant 1 95)
    (proceed)
)

(ASSEMBLE.CLAUSE ( underscore←first 4 si ) 7
    (get.Ai.constant 1 0)
    (get.Ai.constant 2 95)
    (proceed)
)

(ASSEMBLE.CLAUSE ( underscore←first 4 si ) 10
    (get.Ai.constant 1 0)
    (get.Ai.constant 2 0)
    (get.Ai.constant 3 95)
    (proceed)
)

(ASSEMBLE.CLAUSE ( underscore←first 4 si ) 13
    (get.Ai.constant 1 0)
    (get.Ai.constant 2 0)
    (get.Ai.constant 3 0)
    (get.Ai.constant 4 95)
    (proceed)
)

(ASSEMBLE.CLAUSE ( filter←singles 2 si ) 5
    (get.Ai.constant 1 NIL)
    (get.Ai.nil 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( filter←singles 2 si ) 16
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 2 2)
    (call 5 underscore←first 1 si)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart filter←singles 2 si)
)

(ASSEMBLE.CLAUSE ( filter←singles 2 si ) 8
    (get.Ai.list 1)
    (unify.variable.Xn 3)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.value.Xn 3)
    (unify.variable.Xn 2)
    (execute filter←singles 2 si)
)

STOP