gandalf/my.c
char groo(p,q)
 int p;int q; {
--q;
return ((char)(q*q+(p/10)*q+(p-1)));}

void grem() {
int x=0;
printf("   ");
for(;x<16;x++) printf("%c",groo(x,8));
printf("\n\n"); }

void cred(a)
 int a; {
int x=0;
printf("%c  ",groo(a,8));
for(;x<16;x++)printf("%c",(char)a*16+x);
printf("\n"); }

main(a,b)
 int a;char **b; {
int x=2,maxx;
if(b[0][0]&1) maxx=16; else maxx=8;
for(grem();x<maxx;) cred(++x-1); }