(define parse-sentence (lambda () (list 'sentence (amb (parse-word nouns) (parse-noun-phrase)) (parse-verb-phrase))))