Select Code to Download

sub e{sub _{-72} er}eval($/='sub J{map{substr$/,ref('.q:)?pop@$_\:$_,$
+$_[0]||1}
@_}sub f{uc join "system",J(@_)}print J 4=>1,[2,13],-1,010-1,[ _ ],42-
+020,hex"e
";print+h,e,$",f(__LINE__*2+2),e,qw,l,,J(-1,-hex 20),q{ack},e,J hex or
+d(0)/4 :)

sub k{join shift,@_}sub e{sub _{-60}er}eval($/='sub J{map{substr$/,ref
+()?pop'.q
:@$_\:$_,$$_[0]||1}@_}sub f{uc k"system",J(@_)}print J 4,1,[2,13],-1,0
+10-1,[_],
42 -020,hex e;print+h,e,$",f(__LINE__+6),e,qw,l,,J(-1,-hex 16),q{ack},
+e,J 18 :)