( "\xcf\xb8\xbb\xb8\xbbU" )
nip
pairwise
flatten
m:
    4
    base #(num to list)
    ( "_'| " )
    select
    right-uncons
    push-a
    read-num
    copies
    2dup
    2dup
    over
    show-line