(define (ptm a b c)
    (cond
        ((and (< a b) (< a c)) (xd b c))
        ((and (< b a) (< b c)) (xd a c))
        ((and (< c a) (< c b)) (xd a b))
    )
)