(new-pack NOMMODULE
    (new-proc NOMPROCEDURE (
        (a NUMBER)
        (b (type ETUDIANT.NOM)))

        (
            (if (< a (sql SELECT * FROM TOTO))
                (print oui)
                (print non))

            (into a SELECT * FROM toto)
            (if (cond)
                (raise ApplicationException Erreur sans nom)
                (false))

            (for i (sql SELECT * FROM toto)
                (print i.nom))

            (for i (range 1 10)
                (print i))
        )
    )
)