  -*- Mode : Tuareg ; -*- 
    * = = = ----------------------------------------------------------------------=== 
    * Version : $ I d : util.ml , v 0.0 2012/02/22 22:41:18    
    * = = = ----------------------------------------------------------------------===
   *===----------------------------------------------------------------------===
   * Version: $Id: util.ml,v 0.0 2012/02/22 22:41:18 bobzhang1988 Exp $
   *===----------------------------------------------------------------------===*)
open Printf

let (|>) x f = f x

let (|-) f g x = g(f(x))




















  -*- Mode : Tuareg ; -*- 
    * = = = ----------------------------------------------------------------------=== 
    * Version : $ I d : util.ml , v 0.0 2012/02/22 22:41:18    
    * = = = ----------------------------------------------------------------------===
   *===----------------------------------------------------------------------===
   * Version: $Id: util.ml,v 0.0 2012/02/22 22:41:18 bobzhang1988 Exp $
   *===----------------------------------------------------------------------===*)
open Printf

let (|>) x f = f x

let (|-) f g x = g(f(x))



















