undef$",my$s=$|;for my$t(sub{lvlaakuadkagyauakkaakdkaekluwaagglmawaadakgfkoakdaklaluwaav=>""},sub{-97+unpack c=>$_},sub{00x$_.1},sub{$".=$_;$|++&&return},sub{pack"b*",$"},sub{print}){$s=join""=>map{&$t}split//,$s}