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