(setq *lexicon*
  '((the (art))
    (large (adj))
    (can (n))
    (can (aux))
    (can (v))
    (hold (n))
    (hold (v))
    (water (n))
    (water (v))))

(setq *grammar3-8* 
      '(CAT
        ((s)
         -1> 
         (np) (vp))
        ((np)
         -2> 
         (art) (adj) (n))
        ((np)
         -3> 
         (art) (n))
        ((np)
         -4> 
         (adj) (n))
        ((vp)
         -5> 
         (aux) (vp))
        ((vp)
         -6> 
         (v) (np))))