line-mode
read-nums
extract-array
2dup
-
pop-a
+
pop-b
16
range
m:
    tuck-b
    pow
    push-a
    @1
    pow
    @1
    range1
        double
    m1
    dup
        dec
    m1
    init
        rot
        catenate #(list+elem)
        product
        square
    t4
    push-b
    6434
    *
    *
    swap
    /
}
sum
10
shift-right
inc
half