sub __{my
@perl=@_;sub{&{$_[perl]}(@perl);};sub
___{$"=l;&{$_[perl]}(sub{$_[perl
]});}}$__=
__#___
qw([ o l ' W l y);$_=sub{print
"@_\n";};$/ = join $\, &{$__}(sub{$, = __(q#:i|;!l1#);map {$_=chr(ord($_
)-7);} @_});&{$,}(sub{$_[0
]=~tr/|!1i;l:/ro nuJa/;}
)
;$,=reverse(___(
$,));&{__($/,$,,$\)}
($_);
