package _;($a,$b)=(q|sub |,q| {}|);
for(split(//,qq{\x59\x68})){eval($a.$_.$b)}
print(map{s/\x62/\x70/;$_}sort(keys%{*_::}))