set A 20
set B 80
forever
{
   paper (<time 4>)
   pen (100 - <time 4>)
   repeat X A B
   {
      line X A X B
   }
}