module Util where

import Control.Monad;

infixl 1 >>*;
(>>*) :: Monad m => m a -> (a -> b) -> m b;
(>>*) = flip liftM;