let
numberComponents f graph =
Array
.length (f graph)