line-mode
read-num
0
1
rot
    2dup
    +
b2
times #(eval)
pop2