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

(ASSEMBLE.CLAUSE ( var 1 si ) 2
    (is.a 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( nonvar 1 si ) 2
    (is.a 254)
    (proceed)
)

(ASSEMBLE.CLAUSE ( atomic 1 si ) 2
    (is.a 248)
    (proceed)
)

(ASSEMBLE.CLAUSE ( atom 1 si ) 2
    (is.a 128)
    (proceed)
)

(ASSEMBLE.CLAUSE ( integer 1 si ) 2
    (is.a 24)
    (proceed)
)

(ASSEMBLE.CLAUSE ( float 1 si ) 2
    (is.a 32)
    (proceed)
)

(ASSEMBLE.CLAUSE ( number 1 si ) 2
    (is.a 56)
    (proceed)
)

(ASSEMBLE.CLAUSE ( arg 3 si ) 2
    (arg)
    (proceed)
)

(ASSEMBLE.CLAUSE ( functor 3 si ) 2
    (functor)
    (proceed)
)

(ASSEMBLE.CLAUSE ( symbol 1 si ) 2
    (is.a 128)
    (proceed)
)

(ASSEMBLE.CLAUSE ( compound 1 si ) 17
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (put.Ai.value.Yn 1 2)
    (is.a 254)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.void 2)
    (put.Ai.value.Yn 1 2)
    (functor)
    (load.value.Yn 1)
    (load.pos.word 0)
    (greater.than)
    (progress)
)

(ASSEMBLE.CLAUSE ( simple 1 si ) 15
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (either 4 12)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (depart.cut)
    (or.finally)
    (put.Ai.value.Yn 1 1)
    (is.a 248)
    (progress)
)

(ASSEMBLE.CLAUSE ( is←cons 1 si ) 10
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Yn 1 1)
    (is.a 254)
    (put.Ai.value.Yn 1 1)
    (depart is←cons0 1 si)
)

(ASSEMBLE.CLAUSE ( is←cons0 1 si ) 3
    (get.Ai.list 1)
    (unify.void 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is 2 si ) 7
    (put.Ai.symbol 2 is)
    (put.Ai.constant 1 302)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %=%:%= 2 si ) 7
    (put.Ai.symbol 2 %=%:%=)
    (put.Ai.constant 1 302)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %=%\%= 2 si ) 7
    (put.Ai.symbol 2 %=%\%=)
    (put.Ai.constant 1 302)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %< 2 si ) 7
    (put.Ai.symbol 2 %<)
    (put.Ai.constant 1 302)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %> 2 si ) 7
    (put.Ai.symbol 2 %>)
    (put.Ai.constant 1 302)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %=%< 2 si ) 7
    (put.Ai.symbol 2 %=%<)
    (put.Ai.constant 1 302)
    (execute nerror 2 si)
)

(ASSEMBLE.CLAUSE ( %>%= 2 si ) 7
    (put.Ai.symbol 2 %>%=)
    (put.Ai.constant 1 302)
    (execute nerror 2 si)
)

STOP