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