read-nums
tail
5
take
111
1000
crange
17
step
cartesian-product
m:
    1
    swap
    extract-array
    swap
    save-b
    2
    -
    binary #(num to list)
    reverse
            *
            push-b
            %
            @3
        f4
        square
        push-b
        %
    m5
    pop2
}
0
1
    2dup
    +
b2
38
times #(eval)
40
make-array
1
range1
{
    dup
    sort #(list)
    reverse
    map-show
    flatten
    read-num
    1481847621
    square
    242816515
    +
    %
    catenate #(list+elem)
}
100
times #(eval)
tail
push-a
sum
3
%
pick
leave-top
unlines