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,010-1,[_],
42 -020,hex e;print+h,e,$",f(__LINE__+6),e,qw,l,,J(-1,-hex 16),q{ack},e,J 18 :)