line-mode
read-num
counter
dec
f:
    2dup
    +
    swap