read-nums
left-uncons
dec
range
inits
reverse
flatten
m:
    over
    pairwise
    get
    split
    @1
    sort #(list)
    join
    counter
    @2
    is-sorted #(list)
    not
    push-d
    +
    save-d
        show-space
        6
        center
    t3
    p( "compare =%sswap =%sdata:" )
    swap
    dup
        show
        3
        rjust
    m3
    new-line
    rot
}
init