let fn_type_to_node = function
  (* Match with known types. *)
  | "boolean" -> "node_of_bool"
  | "date" -> "node_of_date"
  | "dateTime" -> "node_of_datetime"
  | "double" -> "node_of_float"
  | "int" -> "node_of_int32"
  | "long" -> "node_of_int64"
  | "string" -> "node_of_string"
  | "base64Binary" -> "node_of_base64Binary"
  | eltype -> "node_of_" ^ escape_typename eltype