1
100
range1
m:
    w( "DFBMPQ" "oiuea" "z" "z" )
        64
        times #(list)
    m2
    transpose
    100
    1
    primes #(1: primes_below)
    rot
    64
    copies
        divides
    z1
    compress
    show-line