#! /usr/bin/perl

for(0..39){$i=-1+$_*.05;for(0..59){$r=$j=-2.3+$_*.05;
$z=$i;$b=" ";for(0..255){$m=$r*$r;$n=$z*$z;if($m+$n>4)
{$b="+";last}$z=2*$r*$z+$i;$r=$m-$n+$j}print$b}print"\n"}