// This draws a graph of numbers which are relatively prime to each other.

g = new graphics
g.antialiased[false]
g.fillRectCenter[1,-1,1,1]
g.font["Monospaced",1/2]

max = 361
for i=0 to max
   for j=1 to i-1
   {
      if gcd[i,j] == 1
      {
         g.fillRectCenter[i,-j,1,1]
         g.fillRectCenter[j,-i,1,1]
      }
   }

for n = 1 to max
{
   g.text[n, 0, -n]
   g.text[n, n, 0]
}

g.show[]
//g.print[]