let myprint verb s =
        match verb with
        | Muet                        -> ();
        | Verbeux_textuel         -> print_string (s^"\n");
        | Bavard_textuel         -> print_string (s^"\n");
        | Verbeux_graphique         -> print_string (s^"\n");
        | Bavard_graphique        -> print_string (s^"\n")