(define (real-word? wd)
  (not (member? wd '(a the an in of and for to with))))