! !
! !
! !
! i
;$_=join(
q!!=>map{$!=$!&
0;map{s$![^\]! =s!!
\$x-Y\\[@!]!Y=$! =$x
;$!+=s$[q!=>\$x-Y= [@!
]$!={$g}@$_;$g=i&& q!!
. chr ($! +0x3E)}([\\$!=>{!! !$! =>! chr ,
[!$!]}]=>[\$!=>\$!=>\$!
=>[!$!]]=>[\$!=>\$!=>
{$!=>[$!]}=>{!$!=>[
$!]}]=>[\\$!=>{$!
=>[Y]}]=>[\$!=>
{$!=>[!$!]}=>
\\!$!]=>[
\\$!]))
; print=> !
! print=> !
! print=> !
print=>
print=>
print