SELECT Nom FROM Personne WHERE (LIKE Nom "*a*")

SELECT Nom FROM Personne WHERE
(AND (LIKE Nom "*a*") (LIKE Nom "*s*"))

(DEFUN ascendance ()

; C'est la parenthèse de la fin de DEFUN
)

; Le programme ascendance

(DEFUN ascendance ()
    (SETQ Controle.Resultat (ascendance2memo (getascendance Personne NIL) 0 3))
)

; Le programme getascendance

(DEFUN getascendance (personne:Personne niveau:INT)
    (IF (AND personne (OR (NULL niveau) (> niveau 0)))
        (LIST personne.Nom
            (getascendance personne.Pere (1- niveau))
            (getascendance personne.Mere (1- niveau))
        )
    )
)

; Le programme ascendance2memo

(DEFUN ascendance2memo (ascendance:LIST indent:INT niveau:INT)
    (IF (> niveau 0)
        (+
            (ascendance2memo (NTH 1 ascendance) (+ indent 8) (1- niveau))
            (IF pedigree (SPRINTF "%*s%s\n" indent "" (FIRST ascendance)) "\n")
            (ascendance2memo (NTH 2 ascendance) (+ indent 8) (1- niveau))
        )
        ""
    )
)

; Le programme enfants compte le nombre d'enfants pour une personne.
; D'abord nous définissons les variables, par exemple « noms » pour les noms des enfants.

(DEFUN enfants ()
    (LET ( (noms "") (count 0) (parent Personne) )

    ; Pour tous les enregistrements dans la table Personne, faire ce qui suit :
    ; Si la variable parent apparaît comme père ou mère 
    ; dans un ou plusieurs enregistrements alors :
    ;   ajoutez le nom à la variable noms
    ;   incrémentez le compte de 1.

    (FOR ALL Personne DO
        (IF (OR (= parent Pere) (= parent Mere))
            (
                (SETQ noms (+ noms Nom "\n"))
                (SETQ nombre (1+ nombre))
            )
        )
    )

    ; Ensuite nous écrivons le résultat dans la Controle.Resultat.
    ; Si la personne courante n'a aucun enfant, écrire une chaîne.
    ; Si elle a des enfants alors écrire une autre chaîne.

    (SETQ Controle.Resultat 
        (+ Personne.Nom (IF (> nombre 0)
            (+ " est fier d'être le parent de " (STR nombre) " enfant(s).")
            " n'a aucun enfant (pour le moment :-)."
        ))
    )


    ; Si les parents ont des enfants alors, ajoutez leurs noms.

    (IF (<> nombre 0)
        (SETQ Controle.Resultat 
            (+ Controle.Resultat "\n\n"
                (IF (= nombre 1)
                    "Le nom de l'enfant est :"
                    "Les noms des enfants sont :" 
                )
        "\n\n"
                noms
            )
        )
    )

    ; C'est la parenthèse de fin de la commande LET.
    )

; C'est la parenthèse de fin de DEFUN enfants 
)