SALIAS
case SALIAS:
for (s = source; s->type == SALIAS; s = s->next)
s = pushs(SALIAS, source->areap);
while (source->type == SALIAS || source->type == SREREAD)
for (; s && s->type == SALIAS; s = s->next)