let on_reset f = resetdemon := f :: !resetdemon