#!/usr/bin/perl

use warnings;
use strict;

use GD;

GD::Image->trueColor(1);

my $png = GD::Image->new(256,256);

for my $x (0..255) {
	for my $y (0..255) {
		my $s = <>;
		chomp($s);
		my $dx = $x/255;
		my $dy = $y/255;
		$s = ($s + 1.0) / 2.0;
		$png->setPixel($x, $y, $png->colorResolve($s *180, $s*130, $s*80));
	}
}

binmode STDOUT;
print $png->png;