w( "\x93\xa3" ",\xae\x97\x08." "\nSY\x22K\xe1\xf0\x89\xe6\xaf8<\xdc\x89\xbe\xae=o\r\x1b&\xc4\xf4\xdc\x87\x00M\xb8&'\xe8\x1c;5'\x12\xf4\xe9\xc3K\x0e\xf8h(p\xdfR\xbe\xa4\x8b>\xc3\xec\xa9T\x90\xef\x86A-\xe9\xd7=" )
random
nip
252
base #(list to num)
11
base #(num to list)
lines
m:
    map-show
    show-space
    read-num
    2
    divmod
    ( "-+" )
    get
    itemize
    3
    center
    swap
    show
    catenate #(list+list)
}
dup
length
rrange
    "x"
    swap
        "^"
        @0
        inc
        show
        catenate #(list+list)
        catenate #(list+list)
    f6
m4
zip