#! /usr/local/bin/perl -w
use strict;

my $fVRR = -2.3;
my $fVRI = -1.0;
my $fMaL = 0.05;

for (my $i = 0; $i < 40; $i++)
{
	my $fCI = $fVRI + $i * $fMaL;
	for (my $j = 0; $j < 60; $j++)
	{
		my $fCR = $fVRR + $j * $fMaL;
		my $fZR = $fCR;
		my $fZI = $fCI;

		my $bI = 1;
		for (0..255)
		{
			my $fZRS = $fZR * $fZR;
			my $fZIS = $fZI * $fZI;

			if ($fZRS + $fZIS > 4)
			{
				$bI = 0;
				last;
			}

			$fZI = 2 * $fZR * $fZI + $fCI;
			$fZR = $fZRS - $fZIS + $fCR;

		}
		print $bI?" ":"+";
	}
	print "\n";
}