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