let value_to_ft_handler v =
match v with
O.Raw.Tuple [O.Raw.String name ; O.Raw.List l] ->
let f acc = function
O.Raw.String s -> s :: acc
| _ -> acc
in
(name, List.rev (List.fold_left f [] l))
| _ ->
prerr_endline "value_to_ft_handler";
raise Not_found