let nbones u =
  List.fold_left (fun cpt b -> if b then cpt + 1 else cpt) 0 u