//The dots are multiplying!!
//It's the geometric progression 3*2^r

forever
{
   paper 7
   pen 100

   //box 1 = 1 dot
   set [19 81] 100

   //box 2 = 6 dots
   set [48 81] 100
   set [48 76] 100
   set [48 86] 100
   set [54 76] 100
   set [54 81] 100
   set [54 86] 100

   //box 3 = 12 dots
   repeat C 0 1
   {
      set [(74 + C*5) 81] 100
      set [(74 + C*5) 76] 100
      set [(74 + C*5) 86] 100
      set [(84 + C*5) 76] 100
      set [(84 + C*5) 81] 100
      set [(84 + C*5) 86] 100
   }

   //box 4 = 24 dots
   repeat C 0 1
   {
      set [(12 + C*5) 49] 100
      set [(12 + C*5) 43] 100
      set [(12 + C*5) 55] 100
      set [(22 + C*5) 43] 100
      set [(22 + C*5) 49] 100
      set [(22 + C*5) 55] 100
      set [(12 + C*5) 46] 100
      set [(12 + C*5) 52] 100
      set [(12 + C*5) 58] 100
      set [(22 + C*5) 46] 100
      set [(22 + C*5) 52] 100
      set [(22 + C*5) 58] 100
   }

   //box 5 = 48 dots
   repeat C 0 7
   {
      set [(40 + C*3) 40] 100
      set [(40 + C*3) 44] 100
      set [(40 + C*3) 48] 100
      set [(40 + C*3) 52] 100
      set [(40 + C*3) 56] 100
      set [(40 + C*3) 60] 100
   }

   //box 6 = 96 dots
   repeat C 0 7
   {
      set [(71 + C*3) 40] 100
      set [(71 + C*3) 44] 100
      set [(71 + C*3) 48] 100
      set [(71 + C*3) 52] 100
      set [(71 + C*3) 56] 100
      set [(71 + C*3) 60] 100
      set [(71 + C*3) 42] 100
      set [(71 + C*3) 46] 100
      set [(71 + C*3) 50] 100
      set [(71 + C*3) 54] 100
      set [(71 + C*3) 58] 100
      set [(71 + C*3) 62] 100
   }

   //box 7 = 192 dots
   repeat C 0 11
   {
      set [(8 + C*2) 9] 100
      set [(8 + C*2) 11] 100
      set [(8 + C*2) 13] 100
      set [(8 + C*2) 15] 100
      set [(8 + C*2) 17] 100
      set [(8 + C*2) 19] 100
      set [(8 + C*2) 21] 100
      set [(8 + C*2) 23] 100
      set [(8 + C*2) 25] 100
      set [(8 + C*2) 27] 100
      set [(8 + C*2) 29] 100
      set [(8 + C*2) 31] 100
   }

   //box 8 = 384 dots
   pen 50
   repeat F 0 6
   {
      line 40 (10+ 3*F) 62 (10+ 3*F)
   }
   pen 100
   repeat E 0 11
   {
      line (40 + 2*E) 7 (40+2*E) 31
   }

   //box 9 = 768 dots
   command box X Y S P
   {
      pen P
      repeat A X (X + S)
      {
         line A Y A (Y + S)
      }
   }
   box (7+31*2) 7 25 100

}