lines
extract-array
swap
save-a
cartesian-product
m:
    reverse
    "("
    left-cons
    itemize
    push-a
    cartesian-product
    ")"
    cartesian-product
    show-line