[Add either to Prelude
Einar Karttunen <ekarttun@cs.helsinki.fi>**20060426004402] hunk ./lib/base/Prelude.hs 446
+either :: (a -> c) -> (b -> c) -> Either a b -> c
+either f g (Left x)  =  f x
+either f g (Right y) =  g y