print +($graph->plot(\@point)) , "\n" ;