LOCAL
            gm : SET OF Geometric_model := [];  --this gives us access TO the information base
    END_LOCAL;
          RETURN(gm);