anchor.diff:  to_json_object('DTM', Col, _D)-> list_to_binary(Col);
   to_json_object('SI', Col, _D)-> list_to_integer(Col);
   
  +
   %% Work arounds
   to_json_object('*', Col, _) -> {'*', Col}; %% as it is and process later
   to_json_object('FN', Col, _D)->  to_json_string_and_escape(Col); %% undefined
  
positive.code: 
  -ifdef(TEST).
  
  to_json_string_and_escape_test_() ->
      [
       ?_assertEqual(<<"|">>, to_json_string_and_escape("\\F\\")),
  
negative.code: 
  to_json_object(Name, Col, Depth)->
      to_record(Name, Col, Depth).
  
  to_json_object_nm(Col) -> case catch list_to_integer(Col) of
                                      I when is_integer(I) -> I;
                                      _ -> list_to_nm(Col)
                            end.
  
  %% strip a sign
  list_to_nm([$-|Col]) -> - list_to_nm(Col);
  list_to_nm([$+|Col]) -> list_to_nm(Col);
  list_to_nm(Col) ->
      case lists:suffix("." , Col) of
        true -> list_to_float(lists:append(Col, "0")); %% end with "."
          false -> case lists:prefix("." , Col) of
              true -> list_to_float(lists:append("0" , Col)); %% start with "."
              false -> list_to_float(Col)
          end
      end.
  
  %% Original 静脈血（小児用）\F\\S\\T\\R\\E\ => 静脈血（小児用）|^&~\\
  to_json_string_and_escape(String0) ->
  