line-mode
read-nums
head
double
@1
length
+
save-a
range1
    pop-b
    push-a
    range
    m:
        push-b
        =
        push-b
        *
        push-a
        push-b
        -
        *
    }
    unwords
m6
unlines