V10/libplot/libplot/plot.c.a

!<arch>
subr.c          420921160   41    1     100664  274       `
#include <stdio.h>
putnum(num, ff)
int num[];
double *ff[];
{
	double **fp, *xp;
	int *np, n,i;
	np = num;
	fp = ff;
	while( (n = *np++)){
		xp = *fp++;
		printf("{ ");
		for(i=0; i<n;i++){
			printf("%g %g ",*xp, *(xp+1));
			if(i&1)printf("\n");
		}
		printf("}\n");
	}
}
whoami.c        423864815   41    1     100664  39        `
char *
whoami(){
	return("general");
}