let
reset () =
List
.iter (
fun
f
->
f ()) !resetdemon