lines
m:
    6
    take
    @0
    read-nums
    2
    chunks
    fold-product
        product
    m1
    sort #(list)
    show-comma
    words
    head
    @0
    last
    ")"
    new-line