with(GraphTheory):
g:=Graph({{0,1},{5,3},{3,4},{4,1},{1,3},{3,0},{0,4},{2,1},{4,5},{4,2},{3,6},{4,6},{6,5},{1,6},{6,2},{5,0},{0,2},{2,5},{7,8},{12,10},{10,11},{11,8},{8,10},{10,7},{7,11},{9,8},{11,12},{11,9},{10,13},{11,13},{13,12},{8,13},{13,9},{12,7},{7,9},{9,12},{8,2},{13,0},{10,5},{12,3},{1,9},{7,6}});