(add-word-semantics 'to 'p+dat
		    '(lambda (recpt)
		       `(lambda () ',recpt)))

(add-word-semantics 'was 'aux%be+tns 'was)

(add-word-semantics 'kissed 'v2+passp
		    '(lambda (patient agent)
		       `(kiss :agent ,agent :patient ,patient
			      :tense past :type passive)))

(add-word-semantics 'by 'p+agby
		    '(lambda (agent)
		       `(lambda () ',agent)))

(add-word-semantics 'somebody 'name 'somebody)

(add-word-semantics 'before 'p+time
		    '(lambda (action)
		       `(lambda (frame)
			  (add-feature frame :time-locative
				       '(:relation before :action ,action)))))

(add-word-semantics 'when 'adv+wh '(:time-locative ?when))

(add-word-semantics 'after 'p+time
		    '(lambda (action)
		       `(lambda (frame)
			  (add-feature frame :time-locative
				       '(:relation after :action ,action)))))