operator to change function and argument order

sample.hs

-- such functionality already exist in Control.Lens in '&' operator
-- '|>' alreade used in Data.Sequence
module Main where
(|>)               :: a -> (a -> b) -> b
(|>) a fun         =   fun a 
infixl 1  |>
main = print $ [1..10] |> map (*2) |> filter (>5) |> foldr1 (+)

-- have idea to improve that function: print $ [1..10] |> map (*2) |> filter (>5) |> foldr1 (+)
-- this functionality was wroten because it easear to read: print list from 1 to 10 which mapped filtered etc.