diff --git a/enum.ml b/enum.ml
index 8b19620d..b30c8c06 100644
--- a/enum.ml
+++ b/enum.ml
@@ -193,4 +193,6 @@ module Infix = struct
   let (>>=) e f = flatMap f e
 
   let (--) = int_range
+
+  let (|>) x f = f x
 end
diff --git a/enum.mli b/enum.mli
index 33db8e33..5abc9f30 100644
--- a/enum.mli
+++ b/enum.mli
@@ -97,4 +97,5 @@ module Infix : sig
   val (@@) : 'a t -> 'a t -> 'a t
   val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
   val (--) : int -> int -> int t
+  val (|>) : 'a -> ('a -> 'b) -> 'b
 end