8
range1
m:
    12
    show
    swap
    repeat-product
        show-line
    m1
        dup
            dec
        m1
        catenate #(list+list)
        m( "1(1|.1.|1.1*.1)1" )
    f5