sig
  val ( -| ) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
  val ( <| ) : ('a -> 'b) -> 'a -> 'b
end