::::::::::::::
human_shoulda.pl
::::::::::::::
print map{@$_}sort{$z=0;{$z>@$a?0:lc$$a[$z]cmp lc$$b[$z++]||$$a[$z]<=>$$b[$z++]||redo}}map{[split/([\d\n]+)/]}<>