$%          = 2;
$"          = 6;
$;          = 127;
@_          = qw(124 102 52 55 53
                 33 37 76 40 119 122 41 72
                 109 113 107 99 122
                 63 97 114 126 120 60 109);
for (@_) {
   $=       = 0;
   $%      *= 565;
   for (@_) {
      $%   %= 127;
      $=   *= $%;
      $=   += $_;
      $=   %= 127;
   }
   print chr $=
}