for     
                                               ($k  =  
                                              1.2  ;$k
                                                >-      
                                   1.2 ;$k-=(2.4     )/40){  
                                    for                   ($j=-2.1
                              ;$j <.7                        ;$j     
                               +=2.8                         /100)   
                              {($x,                           $y,     
             $i )=($j,       $k,                                0);   
+  
             while  (sqrt(   $x**                              2+$y   
+ 
           **2)          <2 &&                               $i<200) 
      {($x ,$y            )=(                                $x**2   
 -$y**                    2+                                 $j,2    
       *$x*$y           +$k )                                ;$i++   
             ;}      print  ($i                               <12?(   
             $i <4?($i       <2?                               '#':   
+ 
                              '%'):                            ($i
                               <8?'&'                        :'*'
                              )): ($i<50                    ?($i
                                    <20?                  '+':'-')
                                   :(  $i<80?','      :($i<   
                                                 190
                                              ?'.':' ')
                                             )))      ;}      
                                                print"\n"
                                                  ;}
[download]

Draws a Mandelbrot fractal in the terminal