more Lowest Common Ancestor

Haskell