hseither :: (e -> c) -> (a -> c) -> Either e a -> c
hsimport Data.Either test = either (+ 1) (* 2) main = do print $ test (Left 4) -- 5 print $ test (Right 4) -- 8