#!/usr/bin/perl

for my $x (0..4) {
    $y = sprintf('%.0f',
        -( 2+( 7/12)) * ($x**4) +
        +(13+( 8/12)) * ($x**3) +
        -(26+(11/12)) * ($x**2) +
        +(36+(10/12)) * ($x**1) +
        +(80+( 0/12)) * ($x**0)
    );
    print chr($y);
}