let fn_node_to_type = function
  (* Match with known types. *)
  | "boolean" -> "bool_of_node"
  | "date" -> "date_of_node"
  | "dateTime" -> "datetime_of_node"
  | "double" -> "float_of_node"
  | "int" -> "int32_of_node"
  | "long" -> "int64_of_node"
  | "string" -> "string_of_node"
  | "base64Binary" -> "base64Binary_of_node"
  | eltype -> escape_typename eltype ^ "_of_node"