use strict;
use warnings;

BEGIN{push@INC,sub{open $_,'+>',undef;$_[1]=~/([^\.]+)/;print $_ "\$>{($&=~/c/?
'p N\$':'j0O<*')^\" E<H\\n\"}=$&;";seek$_,0,0;return$_}}use hacker;use another;
sub _{formline(substr($<,0,25,shift),@_)}*<=*^A;$<='@';_($<,'<')for(1..7);($;)=
$<=~m$(.{5})$;$<=qq=$<$;$;<,=;_(map{($_,$>{$_})}sort keys(%>));print$<,$/;