##
print STDERR"Can't find label TPC at -e line 5."
##
##
sub f{pop=~/^(.*?)\1+$/}
##
##
sub h{$_=pop;s/(..)/chr hex $1/eg;(/../g)}
##
##
sub g{$m=pop;map{$m=$_ if $_>$m}@_;$m}
##
##
sub v{sort{eval'$a=~/([aeiou])/;$1'cmp eval'$b=~/([aeiou])/;$1'}@_}