Exemple  ( niveau 2 )

            SOIENT

                     L1, L2 DES LISTES;

                     Rech, Tous : FONCTION(BOOLEEN);

            DEBUT

                     CREER_LISTE(L1, [2, 5, 9, 8, 3, 6 ]);

                     CREER_LISTE(L2, [12, 5, 19, 8, 3, 6, 2,9]);

                     ECRIRE( Tous(L1, L2) )

            FIN

            FONCTION Rech ( L, Val ) : BOOLEEN

            SOIENT       L UNE LISTE;  Val UN ENTIER;

            DEBUT

                     SI L = NIL :  Rech := FAUX

                     SINON

                              SI VALEUR(L) = Val

                                       Rech := VRAI

                              SINON

                                       Rech := Rech(SUIVANT(L), Val )

                              FSI

                     FSI

            FIN

            FONCTION Tous ( L1, L2 ) : BOOLEEN

             SOIENT

                     L1, L2 DES LISTES;

             DEBUT

                     SI L1 = NIL

                               Tous := VRAI

                     SINON

                               SI  NON Rech(L2, VALEUR(L1) )

                                       Tous := FAUX

                              SINON

                                         Tous :=  Tous(SUIVANT(L1), L2)

                              FSI

                     FSI

             FIN