#!/usr/local/bin/perl
$Cols=79; $Lines=30;
$MaxIter=16;
$MinRe=-2.0; $MaxRe=1.0;
$MinIm=-1.0; $MaxIm=1.0;
@chars=(' ','.',',','-',':','/','=','H','O','A','M','%','&','$','#','@','_');
 
for($Im=$MinIm;$Im<=$MaxIm;$Im+=($MaxIm-$MinIm)/$Lines)
{ for($Re=$MinRe;$Re<=$MaxRe;$Re+=($MaxRe-$MinRe)/$Cols)
  { $zr=$Re; $zi=$Im;
    for($n=0;$n<$MaxIter;$n++)
    { $a=$zr*$zr; $b=$zi*$zi;
      if($a+$b>4.0) { last; }
      $zi=2*$zr*$zi+$Im; $zr=$a-$b+$Re;
    }
    print $chars[$n];
  }
  print "\n";
}

        ......,,,,,,,,,,,,,,,,,,,,,--------:::/=O#O_#/:-----,,,,,,..............
       .....,,,,,,,,,,,,,,,,,,,,,---------:::/==HM_AH=/:------,,,,,,............
      ....,,,,,,,,,,,,,,,,,,,,,---------::::/H%%&__#AA/::::-----,,,,,,..........
     ...,,,,,,,,,,,,,,,,,,,,,---------::///==O&______&H=/::::----,,,,,,,........
    ...,,,,,,,,,,,,,,,,,,,,--------::////===HA$______%HH=////::---,,,,,,,.......
    ..,,,,,,,,,,,,,,,,,,-------::::/H_##OOM_%_@______#_M@%H==H%=:--,,,,,,,......
   ..,,,,,,,,,,,,,,,,,-----:::::://=H%___#_______________@M%____/:--,,,,,,,.....
  ..,,,,,,,,,,,,,,,,---::::::::///=HOM________________________$H/::-,,,,,,,,....
  .,,,,,,,,,,,,,---://:::::::////=&__________________________#A=/::--,,,,,,,,...
  ,,,,,,,,,-----::/OA===========HHA$__________________________#AOH:---,,,,,,,,..
 .,,,,,-------::://O$MMAO&$OOOHHOA_______________________________H:---,,,,,,,,..
 ,,,--------:::::/=HO&_________MM&______________________________O/:---,,,,,,,,,.
 ,--------::::::===%M___________#_______________________________@/:----,,,,,,,,.
 -------:::///=HMOA%____________________________________________=::----,,,,,,,,.
 :::::==///===OO&______________________________________________=/::----,,,,,,,,.
#____________________________________________________________MH=/::----,,,,,,,,,
 :::::==///===OO&______________________________________________=/::----,,,,,,,,.
 -------:::///=HMOA%____________________________________________=::----,,,,,,,,.
 ,--------::::::===%M___________#_______________________________@/:----,,,,,,,,.
 ,,,--------:::::/=HO&_________MM&______________________________O/:---,,,,,,,,,.
 .,,,,,-------::://O$MMAO&$OOOHHOA_______________________________H:---,,,,,,,,..
  ,,,,,,,,,-----::/OA===========HHA$__________________________#AOH:---,,,,,,,,..
  .,,,,,,,,,,,,,---://:::::::////=&__________________________#A=/::--,,,,,,,,...
  ..,,,,,,,,,,,,,,,,---::::::::///=HOM________________________$H/::-,,,,,,,,....
   ..,,,,,,,,,,,,,,,,,-----:::::://=H%___#_______________@M%____/:--,,,,,,,.....
    ..,,,,,,,,,,,,,,,,,,-------::::/H_##OOM_%_@______#_M@%H==H%=:--,,,,,,,......
    ...,,,,,,,,,,,,,,,,,,,,--------::////===HA$______%HH=////::---,,,,,,,.......
     ...,,,,,,,,,,,,,,,,,,,,,---------::///==O&______&H=/::::----,,,,,,,........
      ....,,,,,,,,,,,,,,,,,,,,,---------::::/H%%&__#AA/::::-----,,,,,,..........
       .....,,,,,,,,,,,,,,,,,,,,,---------:::/==HM_AH=/:------,,,,,,............
        ......,,,,,,,,,,,,,,,,,,,,,--------:::/=O#O_#/:-----,,,,,,..............