set A 
forever
{
   pen 0
   line 0 14 100 14
   line 0 17 100 17
   line 0 11 100 11
   line 0 20 100 20

   pen 
   repeat C 80 83
   {
      line 100 C C 100
   }

   pen 
   repeat D 73 76
   {
      line 100 D D 100
   }
   pen (( + ) / 2)
   repeat E 66 69
   {
      line 100 E E 100
   }

   paper 

   pen 100
   line (27 + A) 100 (27 + A) 
   line (30 + A) 100 (30 + A) 
   line (33 + A) 100 (33 + A) 

   line (36 + A) 100 (36 + A) 
   line (39 + A) 100 (39 + A) 
   pen (( + ) / 2)
   repeat B 10 20
   {
      line (B + A) 50 (B + A) 
      line (B + A) 50 (B + A) (100 - )
      line (B + A)  (B + A) 
      line (B + A) (100 - ) (B + A) (100 - )

   }
   pen 0
   line 0 14 100 14
   line 0 17 100 17
   line 0 11 100 11
   line 0 20 100 20
}