add defn: take-gen7-random [n]: need to work on pruning comps according to heads now, because it's getting too slow otherwise.