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