const maxIter = 256;

var x, y, i : Integer;
for y:=-39 to 39 do begin
   for x:=-39 to 39 do begin
      var c := Complex(y/40-0.5, x/40);
      var z := Complex(0, 0);
      for i:=1 to maxIter do begin
         z := z*z + c;
         if Abs(z)>=4 then Break;
      end;
      if i>=maxIter then
         Print('#')
      else Print('.');
    end;
    PrintLn('');
end;