read-nums
last
3
%
{
    1
    range1
    {
        dup
        sort #(list)
        reverse
        map-show
        flatten
        read-num
        1481847621
        square
        242816515
        +
        %
        catenate #(list+elem)
    }
    100
    times #(eval)
    tail
}
{
    0
    1
        2dup
        +
    b2
    38
    times #(eval)
    wrap-stack
}
{
    @6
    tail
    5
    chunks
    extract-array
    extract-array
    rrot
    crange
    step
    cartesian-product
    m:
        0
        1
        rot
        extract-array
        f:
            @0
            divmod
            pop
            *
            -
            @2
            swap
            @7
            @5
            @9
            when
        }
        pop
        abs
        %
    }
}
3
make-array
get
eval
unlines