Fn.Compose_syntax
val (>>) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c
f >> g is Fn.compose g f.
f >> g
Fn.compose g f
Example:
let f = String.(Compose_syntax.(strip >> lowercase >> equal "test") in f " TEST " (* --> true *)