sub o{
($c,$s)=@_;@m{@$c}=map{10*@$c+$_}0..@$c;sub t{$_=pop;s/./$m{$&}/gs;$_}sort{t($a)cmp t($b)}@$s
}

##</code><code>##

sub o{
($c,$s)=@_;@m{@$c}=map{$_+9999}1..@$c;sub t{$_=pop;s/./$m{$&}/gs;$_}sort{t($a)cmp t($b)}@$s
}

##</code><code>##

sub o{
($c,$s)=@_;@m{@$c}=map$_+9**9,1..@$c;sub t{$_=pop;s/./$m{$&}/gs;$_}sort{t($a)cmp t$b}@$s
}

##</code><code>##

sub o{
($c,$s)=@_;@m{@$c}=map$_+1e9,1..@$c;sub t{$_=pop;s/./$m{$&}/gs;$_}sort{t($a)cmp t$b}@$s
}

##</code><code>##

sub o{
($c,$s)=@_;@m{@$c}=map$_+~0,1..@$c;sub t{$_=pop;s/./$m{$&}/gs;$_}sort{t($a)cmp t$b}@$s
}

##</code><code>##

sub o{
($c,$s)=@_;@m{@$c}=1e8..@$c+1e8;sub t{$_=pop;s/./$m{$&}/gs;$_}sort{t($a)cmp t$b}@$s
}