#!/usr/bin/perl
@f=reverse            ([37,30],
    [117,8],         [237,4],
      [763,8],     [2911,60],
        []);for   $i(0..5){
           undef$a;$a+=$_
        for map{  ((-$i)**$_)
      *($f[$_]      ->[0]/$f[$_]
     ->[1])}          1..5;print
  chr(sprintf         "%.0f",100+$a);}