#!/usr/bin/perl -w # this echos a japh ########
$r=qq q\qq; sub d{chomp  foreach(@_);}$q=sub(@)
{($just =$_&#91;0&#93;)=~ s/.*\/(&#91;^ &#93;*).*\n/$1/g;$_&#91;1&#93;=
qq.\: ..(join "",grep{/^j/;} keys %::).qq&#91; &#93;;$_
&#91;0&#93;=~s/.*s\s(.*)s/$1/g;*y=\${$,}&#91;2&#93;;$f="$1$2$1"
."$2$1".qq 323 if ${$,}&#91;0&#93;=~m/ (\w)\s.(.)/g;$q=
$1 if $f=~/.(.)/;$_=0xf9;(($_&#91;2&#93;=${$1 if($_&=$_
-147,1)&&($_&#91;1&#93;=~/ (.*) /)}).=$_&#91;2&#93;)=~s|(p)|h|g
;$g=qr r(.)....r;$y=~y yly  y;$_|=3;($z="fuck"&
"   _")=~s/\s*//;$just=~/.(..).$/;$x=pack$f,$d,
$f,chr,lc$z,$1; $d=~s/$g/${$r}not$1/;&d;@_=(@_&#91;
0..2&#93;,$just,$x);@x=@_;$_=join" ",@x;@{$,}=${$,}
;}; $ARGV&#91;0&#93;=<${0}>;$,="_";@_=<>;*y=*d;&$q;($,=
qx"@_")=~s/.*: //g;chomp($,);$_=0;print"","\n";