line-mode
save-a
printable-ascii
diff #(list-list)
push-a
    is-alnum
f1
2dup
catenate #(list+list)
show-space
tuck-a
diff #(list-list)
3
make-array
    length
    show
    "B"
    catenate #(list+list)
    "/"
m5
init
unwords