100
range1
m:
    save-a
    double
    4
    primes #(4: factor)
    last
    pop-b
    space
    ( "_/" )
        push-a
        copies
        push-b
        chunks
    t4
    zip
    new-line