read-nums
left-uncons
    left-uncons
    2dup
    take
    rrot
    drop
b5
times #(eval)
wrap-stack
init
inspect