package _;sub _{$k?',':$"};sub __{for(sort grep!/_/&&$$_,keys%_::){print"$_$$_"}
print"@{[_]}"}$J="u";$/=$s="t";&__;sub ____{for(2,3){&{'_'x$_}}}&___;$an="o$/";$
he="r";&____;$P="e";$r="l";&____;$ha="c";$k="er";&__;sub ___{$$_=$,for keys%_::}