let exemples_piece_aleatoire c = squel 
        ~f_init:(fun () -> 
                init_fenetre ~x:800 ~y:600 ();
                Graphics.moveto 100 100; )
        ~f_end:(fun () -> Graphics.clear_graph(); print_string "\nJ'espère que ca vous a fait rire :D !"; Graphics.close_graph ();)
                

(** Pour fermer, on efface le graphe, affiche un message, et quitte. *)


        ~f_key:(trait_char c)
                

(** On utilise la fonction précédente de traitement du caractère pressé.*)


        ~f_mouse:(fun x y -> Graphics.moveto x y)
                

(** On actualise le point courant au point cliqué. *)


        ~f_except:(fun e -> ())