to comment.on.subjects :subjectlist
 print sentence [Your favorite subjects are:] :subjectlist
 if and (memberp "math :subjectlist) (memberp "physics :subjectlist)~
    [print [Math is the queen of the sciences] stop]
 if memberp "math :subjectlist [print [Don't you like physics too?] stop]
 print [Those are nice, but I really like math and physics too.]
end