alanlit

    %% Simple statements -- root is an announcement word whose subject and object tell the story.
    %% 'IBM announced a new computer today'
    announce(Who, About, What) ==> 
        s+root(['announc', 'releas', 'introduc','launch', 'unveil', 'reveal', agre']), 		
        #Dep1,	
        subject(Who), 
        Dep1 >> object(About, What).
	
    %% 'IBM has announced a partnership ...' is caught by the above. But 'IBM has entered into a   partnership ...' needs 
    %% a little more work
    announce(Who, About, announcement) ==> 
        s+root(['enter']),
        #Obj,
        subject(Who),
        Obj >> prep_pobj_chain(PPC),
        {PPC = [Prep|About]}.