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