let wc text : int = 
 make  ~it:(Some String.Text.to_string) 
       ~ot:(String.chop || int_of_string) 
       "wc -w"
       ~input:(Some text) ()