module Prelude where flip :: (a -> b -> c) -> b -> a -> c flip f x y = f y x