lines
extract-array
swap
cartesian-product
m:
    reverse
    "("
    left-cons
    itemize
    @7
    cartesian-product
    ")"
    cartesian-product
    new-line