Hello J., Sunday, February 4, 2007, 11:46:57 PM, you wrote: > exists s wmap = isJust $ find (==s) . snd =<< Map.lookup (sort s) wmap exists s wmap = Map.lookup (sort s) wmap >>== snd >>== find (==s) >>== isJust a>>==b = a>>=return.b -- Best regards, Bulat mailto:Bulat.Ziganshin at gmail.com