-- oppeators for haskell...
import Control.Arrow
import Data.Function ((&))

infixl 2 $>
($>) = (>>>)

infixl 1 $>=
-- ($>=) converts from monad so that $> = flip (.) can be used

infixl 1 <>=
infixl 1 =$>
-- ( $>= , >>= ) infixes to ( =$> , <>= )

(<>=) f b a = f a >>= b      -- monad,arrow
($>=) a b = a >>= return . b -- fmap,monad
(=$>) a b = a <>= (return . b) -- monad,fmap,arrow