sig val test_etat : unit -> unit end