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