package Util((|>)) where (|>) :: (a -> b) -> a -> b f |> x = f x;