L1001
    .proc       
    reg/op1/branchf internal:branchf-zero?,2,1005
    reg/return  3
L1005
    save        3
    store       0,0
    store       1,3
    store       3,2
    reg/op2imm/setreg internal:-/imm,2,1,7
    store       7,1
    setrtn      1006
    global/invoke random,1
    .align      4
L1006
    .cont       
    load        0,0
    setreg      7
    load        2,1
    load        6,2
    reg/op2/setreg internal:cons,7,6,3
    load        1,3
    pop         3
    branch      1001,3