line-mode
    empty-list
    pop-d
        tuck-d
        2dup
        itemize
        or
        pop-d
        member
    f6
    tuck-d
b6
7
times #(eval)
8
make-array
    length
f1
"/"
join