##
perl -e'\
\
\
\
goto TPC'
##
##
map{chr(hex)}unpack("A2"x11,pop)
1234567890123456789012345678901
##
##
$x=shift;map{$x=$_ if$_<$x}@_;$x
12345678901234567890123456789012
##
##
sort{($a=~/([aeoui])/)[0]cmp($b=~/([aeiou])/)[0]}@_}
1234567890123456789012345678901234567890123456890123