alias mandel {
  if (![$0])
  { echo Draws the Mandelbrot fractal
    echo Usage: mandel draw
  }
  { @mul=8000;@MaxX2=77;@MaxY2=44
    @MaxY=MaxY2;@Im=0-((mul*3)/2);@ima=(mul*3)/MaxY2
    @raja=(4*mul);@rea=(mul*3)/MaxX2
    while (MaxY>0)
    { @MaxY=MaxY-1;@Re=0-((mul*11)/5);@line=;@MaxX=MaxX2
      while (MaxX>0)
      { @MaxX=MaxX-1;@x0=Re;@y0=Im;@c1=16;@n1=0
        while (n1<c1)
        { @x1=(x0*x0)/mul;@y1=(y0*y0)/mul
          if ((x1+y1)>raja)
          { @c1=0 }
          { @n1=n1+1;@y0=((x0*y0)/mul)
            @y0=y0+y0+Im;@x0=(x1-y1)+Re;
          }
        }
        @n1=n1/2
        ^assign line $line$mid($n1 1 @#%msoc.\ )
        @Re=Re+rea
      }
      echo $line;@Im=Im+ima
    }
  }
}

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@################@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#############################@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@######################################@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@###########################%%mcm%%%#########@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@############################%%%% cmms%###########@@@@@@@@
@@@@@@@@@@@@@@@@@#############################%%%%%mmo om%%%###########@@@@@@
@@@@@@@@@@@@@@@##############################%%%%msso   sm%%%%###########@@@@
@@@@@@@@@@@@@@#############################%%%%%msc       m%%%%%###########@@
@@@@@@@@@@@@############################%%%%%%mmms.      cmm%%%%%%%#########@
@@@@@@@@@@@##########################%%%m o smsoooc     .oos mmmmm.%#########
@@@@@@@@@@######################%%%%%%%%m    c               csc.o o%########
@@@@@@@@@###################%%%%%%%%%%%mms                        om%%#######
@@@@@@@@################%%%%%%%%%%%%%mmo c                       csm%%%######
@@@@@@@##############%%mcm%%%%%mmmmmmmso                          oso%%######
@@@@@@@############%%%%moos ss.ssmmmms                               %%######
@@@@@@###########%%%%%%mso.       coso                             om%%######
@@@@@@#########%%%%%%mmmso          ..                              s%%######
@@@@@@########%%%%%msssoc                                           %%%######
@@@@@@#%%%%%m%%%mmmss.                                            om%%%######
@@@@@@moooc .c   .                                              csm%%%%######
@@@@@@#%%%%mm%%%mmmss.                                            sm%%%######
@@@@@@#######%%%%%%msssoc                                           %%%######
@@@@@@#########%%%%%%mmmsc          ..                              s%%######
@@@@@@###########%%%%%%mso.       .ooo                             om%%######
@@@@@@@############%%%%moos.ss.osmmmms.                              %%######
@@@@@@@##############%%mommmmmmmmmmmmmso                          oso%%######
@@@@@@@@################%%%%%%%%%%%%%mmc .                       csm%%%######
@@@@@@@@@###################%%%%%%%%%%%mms                        om%%#######
@@@@@@@@@@######################%%%%%%%%m    c               csc o o%%#######
@@@@@@@@@@@##########################%%%m  .sssoooc     .oos mmmmm %#########
@@@@@@@@@@@@############################%%%%%%mmms.      cmm%%%%%%%#########@
@@@@@@@@@@@@@@#############################%%%%%msc       m%%%%%###########@@
@@@@@@@@@@@@@@@##############################%%%%msso   sm%%%%###########@@@@
@@@@@@@@@@@@@@@@@#############################%%%%%mmo sm%%%###########@@@@@@
@@@@@@@@@@@@@@@@@@@#############################%%%%ccmms%###########@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@###########################%%m m%%%#########@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@######################################@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@##############################@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#################@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@