line-mode
read-nums
pop-a
64
range1
m:
    push-a
    extract-array
    dec
    rot
    /
    3
    +
    swap
    inc
    half
    @6
    -
    biggest
    @3
    2
    +
    *
}
min
push-a
sum
-