// cubist clock
   pen 100
   paper 0

   command rectangle X Y W L P
   {
      pen P
      repeat E X (X+W)
      {
         line E Y E (Y+L)
      }
   }

   command square X Y S P
   {
      pen P
      repeat A X (X + S)
      {
         line A Y A (Y + S)
      }
   }

   command band X Y L P
   {
      pen P
      repeat B X (X + L)
      {
         line X Y B (Y + L)
      }
   }

   command outline X Y L P
   {
      pen P
      line X Y X (Y+L)
      line X (Y+L) (X+L) (Y+L)
      line (X+L) (Y+L) (X+L) Y
      line (x+L) Y X Y
   }

   command threeline X Y L D P
   {
      pen P
      line X Y (X+L) Y
      line X (Y+D) (X + L) (Y+D)
      line X (Y+D+D) (X+L) (Y+D+D)
   }

   //the background
   rectangle 20 0 80 50 9
   rectangle 50 37 83 69 12
   rectangle 0 60 69 40 7
   rectangle 0 0 27 80 3

   //the face of the clock
   square 33 43 45 35
   square 52 33 35 20
   outline 48 48 35 69
   square 26 15 41 53
   outline 42 24 37 42
   square 15 42 29 60
   outline 20 26 25 20

   //time--hours
   band 47 86 11 79

   //time--minutes
   threeline 80 50 17 3 100

   //time--seconds
   outline 39 42 17 50
   outline 40 43 15 50
   outline 41 44 13 35
   outline 42 45 11 35
   outline 43 46 9 22
   outline 44 47 7 22
   square 45 48 5 12