Bonjour tout le monde

J'aurais besoin d'aide s'il vous plait, j'essai de faire une procédure récursive en scheme qui supprime tout les éléments d'une liste à partir du deuxième élément.
Si la liste est vide ou inférieure à 1 alors je retourne une liste vide. Voici un exemple du résultat que j'essai d'avoir
(enleve '(1 2 3 4))
resultat: (1)

(enleve '(1))
resultat ()

voici mon code il remplit bien la deuxième condition mais m'envoi balader pour la premiere...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
(define (enleve elem)
  (if(< (length elem) 1)
    '()
    (enleve (cadr elem)
                 (cons (car elem) (enleve (cdr elem))))))
Merci d'avance pour votre aide