(defparameter *grammar*
	'((Sentence -> (Nounphrase Verbphrase))  
	 (Nounphrase -> (Boy))              
	 (Nounphrase -> (Girl))           
	 (Boy -> john ajit)
	 (Girl -> pima barkha)
	 (Verbphrase -> (Verb Modlist Adverb with  Nounphrase))
	 (Verb -> runs  walks )                 
	 (Modlist ->  () (very Modlist))
	 (Adverb -> (quickly  slowly))))