ainit
ainit(AEDIT);
ainit(&aperm); /* initialize permanent Area */
ainit(&env.area);
ainit(&ep->area);
Area * ainit(Area *);
ainit(&l->area); /* todo: could use genv->area (l->area => l->areap) */