$;="BUS"=>$a=$/=>$_=$;=>$b=''=>$;=r(split//)=>$;="\L$;".' ::{"hpaj"}'=>
s>$b>$;>ee=>,$_=::(),die r(split//).$a;sub r{$b=>(@_&&pop().r(@_))||''}