(define (depiller p )
(if (pile-vide? p)
("depiller""debordement")
(begin
(vector-set! p 0 (- (sommet p) 1))
(vector-ref (tableau p) (+ 1 (sommet p))))))
cette procedure permet de voir le dernier élément du tableau (pour les piles)
mais ne permet pas de suprimer cette élément
on peut idre qu il va dépiler la pile??
sinon il que faudrai t il rajouter pour enlever le dernier élément??