anchor.diff:  
   -ifdef(TEST).
   
  +to_json_object_NM_test_() ->
  +  [
  +    ?_assertEqual(8 ,   to_json_object('NM', "8", 0)),
  +    ?_assertEqual(0.1 , to_json_object('NM', "0.1", 0)),
  +    ?_assertEqual(0.1 , to_json_object('NM', "+0.1", 0)),
  +    ?_assertEqual(135.0 , to_json_object('NM', "135.", 0)),
  +    ?_assertEqual(135.0 , to_json_object('NM', "135.0", 0)),
  +    ?_assertEqual(0.5 , to_json_object('NM', "0.5", 0)),
  +    ?_assertEqual(0.5 , to_json_object('NM', ".5", 0)),
  +    ?_assertEqual(-73.5 , to_json_object('NM', "-73.5", 0)),
  +    ?_assertEqual(-0.5 , to_json_object('NM', "-.5", 0)),
  +    ?_assertEqual(-135.0 , to_json_object('NM', "-135.", 0)),
  +    ?_assertEqual(2.5 , to_json_object('NM', "002.5", 0)),
  +    ?_assertEqual(2 , to_json_object('NM', "002", 0)),
  +    ?_assertEqual(1.2 , to_json_object('NM', "01.20", 0)),
  +    ?_assertEqual(0.2 , to_json_object('NM', "+.20", 0))
  +  ].
  +
   to_json_string_and_escape_test_() ->
       [
        ?_assertEqual(<<"|">>, to_json_string_and_escape("\\F\\")),
  
positive.code: to_json_object('ST', Col, _D)-> to_json_string_and_escape(Col);
  to_json_object('TX', Col, _D)-> to_json_string_and_escape(Col);
  to_json_object('FT', Col, _D)-> to_json_string_and_escape(Col);
  to_json_object('NM', Col, _D)-> case catch list_to_integer(Col) of
                                      I when is_integer(I) -> I;
                                      _ -> list_to_float(Col)
                                  end;
  to_json_object('IS', Col, _D)-> to_json_string_and_escape(Col); %%  list_to_binary(Col);
  to_json_object('ID', Col, _D)-> to_json_string_and_escape(Col); %% list_to_binary(Col);
  to_json_object('DT', Col, _D)-> to_json_string_and_escape(Col); %% 「小学校低学年の頃」
  
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) ->
  