enumerate
    left-uncons
    double
    inc
    rjust
m4
5
take
@0
5
take-end
reverse
    tuck
    length
    drop
    show-line
b4
zipwith