let value_to_rule v = match v with O.Raw.Tuple [O.Raw.String ft; O.Raw.String rule] -> (ft, rule) | _ -> prerr_endline "value_to_rules"; raise Not_found