(define (second wd)
  (first (butfirst wd)))


(define (length-one? sent)
  (empty? (butfirst sent)))


(define (compose f g)
  (lambda (arg) (f (g arg))))