ifdef(`pstricks_',`
.PS
n = 5                                        # number of languages and machines
boxht = boxwid = .2
h = .3; w = .35                              # spacing height and width
I: shadebox(box at w*(n+1)/2`,'0)            # the intermediate language box
for i = 1 to n do {
   shadebox(box fill_(.9) with .s at i*w`,'h)          # language box
   line from last box.s to I.n
   shadebox(box fill_(.5) with .n at i*w`,'-h)         # machine box
   line from last box.n to I.s
   }
"1 intermediate language  " at I.w rjust
"5 languages  " at 2nd box .w rjust
"5 machines  " at 3rd box .w rjust
.PE ')


\vspace{.5in}
.PS
n = 10; r = 1.4
for i = 1 to n-1 do {
   for j = i+1 to n do {
      line from rect_(r,i*twopi_/n) to rect_(r,j*twopi_/n)
      }
   }
.PE