let
children w =
let
l = ref []
in
foreach w ~f:(
fun
c
->
l := c :: !l);
List
.rev !l