line-mode
inits
tail
m:
    right-uncons
    tuck
    itemize
    and
        not
    m1
    right-cons
    8
    0
    ljust
}
transpose
    sum
f1
"/"
join
    nop
f1