lines
left-uncons
inits
tail
cartesian-product
m:
    extract-array
    split
    left-uncons
    @2
    itemize
    show-python
    rot
    @1
    join
    show-line