read-nums
m:
    save-a
    4
    primes #(4: factor)
    permutations
    m:
        tuck-a
        catenate #(elem+list)
            /
        b1
        scan
            digits
            sum
        m2
        sum
    }
    max
    show-line