bind3 :: Monad m => (a -> b -> c -> m d) -> m a -> m b -> m c -> m d
bind3 f ma mb mc = do a <- ma; b <- mb; c <- mc; f a b c
bind3 :: Monad m => (a -> b -> c -> m d) -> m a -> m b -> m c -> m d
bind3 f ma mb mc = do a <- ma; b <- mb; c <- mc; f a b c
bind3 f ma mb mc = do a <- ma; b <- mb; c <- mc; f a b c