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 -> ())