{-# LANGUAGE Arrows #-}

foo x y = x -< y

bar f x
    =  f x  -- Hello
    -< x    -- World

baz x y = x -<< y