sum
3
%
{
    push-a
    read-nums
    tail
    5
    chunks
    extract-array
    extract-array
    rrot
    crange
    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
    }
}
{
    1
    itemize
    {
        dup
        sort #(list)
        reverse
        map-show
        flatten
        read-num
        ( "\x1fQ\xac\x1f\xa8:P\xb5" )
        255
        base #(list to num)
        %
        catenate #(list+elem)
    }
    100
    times #(eval)
    tail
}
{
    0
    1
        2dup
        +
    b2
    38
    times #(eval)
    wrap-stack
}
3
make-array
get
eval
unlines