let filter_nodes l =  List.map (fun (n,_) -> n) l