#!/usr/local/bin/perl -w
use strict;
map{ eval}
('map{printf "%c" ,3.55*$_**5-57.583*$_**4+347.75*$_**3-972.92*$_**2+1249.2*$_-463.5}(1..6)',
'map{printf "%c", -0.55*$_**5+10.208*$_**4-69.833*$_**3+215.29*$_**2-292.12*$_+247.5}(1..6)',
'map{printf "%c", 1.25*$_**5-25.333*$_**4+191.25*$_**3-672.17*$_**2+1099*$_-561.5}(1..6)',
'map{printf "%c", 0.5833*$_**5-9.4583*$_**4+56.167*$_**3-148.54*$_**2+169.25*$_+36.5}(1..6)');
print "\n"