line-mode
words
2
step
dup
reverse
    "/"
    left-cons
m2
catenate #(list+list)
    60
    tuck
    inc
    inc
m4