#!perl -ln s/./$&$'$` /g;@_=sort split;$i++until/^$_[$i%=@_]/;print"$i ",map/.$/g,@_