#import std
#import nat

ss ::

ordering   %fZ ~ordering||lleq!
column     %n  ~column||1!
reversed   %b

sorter = +^(~reversed?/~&x! ~&!,-<+ +^/~ordering ~~+ ~&h++ //skip+ predecessor+ ~column)