okup "every"   = Just $ LexEntry (va "every")   (N $ (N $ sN :/: (N $ npP :\: sN)) :/: nP)
 
lookup "every"   = Just $ LexEntry (va "every")   (N $ (N $ sN :/: (N $ npP :\: sN)) :/: nP)
lookup "every"   = Just $ LexEntry (va "every")   (N $ (N $ sN :/: (N $ npP :\: sN)) :/: nP)