my $sf = make_sorter( name => 'sort_len', code => sub { length }, ST => 1 );
die "No sort made\n" if (! $sf);