( "\xcf\xb8\xbb\xb8\xbbU" )
pairwise
flatten
m:
    4
    base #(num to list)
    ( "_'| " )
    select
    right-uncons
    12
    copies
    init
    over
    @0
    2dup
    over
    show-line