example for removevertex Funktion of Mathematica