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