$p57=product(n_gon(5),n_gon(7));
print $p57->F_VECTOR;
#
$Aut=automorphisms($p57->VERTICES_IN_FACETS);
print $Aut;
#
$G=new group::Group(GENERATORS=>[map { $_->first } @$Aut]);
print $G->ORDER;
#
application 'group';
$orbits=compute_domain_orbits($G);
print $orbits;
#
print rows_numbered(convert_to<Float>($p57->FACETS));
#
@color = map {
             $orbits->[0]->contains($_) ? "red" : "blue"
           } 0..($p57->N_FACETS-1);
$p57->VISUAL_DUAL_GRAPH(NodeColor=>\@color);