line-mode
( "\x1b\xf4\xf1\x87\xe4,\x8b\xd1\xda\xc5\xcb\x16\xc4\xfe\x86\x96J}~\x850#\xed\x13\xfa\x0c\xb2v\x04\xf5\xfdO\xa3<\xa4\x93\x93U\x08\xfe" )
256
base #(list to num)
27
base #(num to list)
lines
    lowercase-alphabet
    show-space
    select
m3
swap
@2
and
words
dup
reverse
=
( "_m" )
get
binary #(num to list)
compress
3
chunks
left-uncons
right-cons
show-comma
"W"
left-cons