with Tapis ; procedure Mission6 is begin while not Tapis.Est_Vide loop while not Tapis.Produit_Dans_Zone loop Tapis.Avancer ; end loop ; Tapis.Aiguiller_Produit (Recyclage => False) ; end loop ; end Mission6 ;