"-"
20
times #(list)
itemize
( "*?@.#`%$\\:[{'\x22" )
m:
    pop-a
    {
        reverse
        transpose
        push-a
        @1
        length
        copies
        left-cons
    }
    4
    times #(eval)
}
pop
unlines