#random element of a given type of a projective space
ps := PG(8,16);
RandomSubspace(ps);
RandomSubspace(ps);
RandomSubspace(ps);
RandomSubspace(ps);
RandomSubspace(ps);
RandomSubspace(ps);
RandomSubspace(ps);
quit;
