read-num
"+"
times #(list)
show-line
@2
@1
half
inc
rjust
show-line
@3
times #(list)
tuck