2
10
crange
m:
    range1
    tails
    tail
    @2
    rrange
    inits
        tail
    t1
    cartesian-product
    map-show
    extract-array
}
sort #(list)
    length
b1
sort #(list,block)
43
take
    map-show
    show-line
m2