for cut polytope


polytope > $points=new Matrix<Rational >([[1,0,0,0,0,0,0],[1,1,1,1,0,0,0],[1,1,0,0,1,1,0],[1,0,1,0,1,0,1],[1,0,0,1,0,1,1],[1,0,1,1,1,1,0],[1,1,0,1,1,0,1],[1,1,1,0,0,1,1]]);
                                                                                                                                            
polytope > $p=new Polytope<Rational >(POINTS=>$points);
                                                                                                                                            
polytope > print $p->F_VECTOR;
                                                                                                              
                                                                                                                                            
8 28 56 68 48 16