(define orange)

(define pied-droit pied)
(define pied-gauche pied)

(find-subclasses 'pied)
(find-subclasses 'bodypart)