use strict;
              use warnings;
             my($m)=sub {map
            {print(chr(sprintf
           ("%.0f",do{my($t);for
          my $x(0..4){$t+=($_[$x]
         *$_**(4-$x))}$t})))}0..4};
        for ([(-17/3), 42, (-653/6),
       (231/2), 74],[(-23/8), (101/4),
      (-621/8), (401/4), 65],[ (-191/12
     ), 133, (-4021/12), 231, 101],[(-317
   /24), (441/4), (-6559/24) , (681/4), 114
  ],[(-133/24), (155/4), (-2027/24), (237/4)
          , 99]) {$m->(@{$_});}
                print "\n"
[download]