void
plot( /* plot meta-file */
FILE *infp
)
{
PRIMITIVE nextp;
do {
readp(&nextp, infp);
while (isprim(nextp.com)) {
doprim(&nextp);
readp(&nextp, infp);
}
} while (doglobal(&nextp));
}
void doiprim(cell *up) { doprim(up); makeimmediate(up); }