datarecord *insert( new, list )
     typekey new;  datarecord *list;

     { extern int n;
     n++;
     return( newnode( new, list ) );
     }