anchor.diff:          ["MSH"|_] = Tokens ->
               Msg = 'MSH'(Tokens),
               {ok, Msg};
  -        _O ->
  -            erlang:display(_O),
  -            {error, bad_format}
  +        O ->
  +            {error, {bad_format, O}}
       end.
   
   
  
positive.code:             {TypeDef, _} = lists:split(ShortLen, TypeDef0),
              {Tokens, _}  = lists:split(ShortLen, Tokens0),
  
              ?debugVal(TypeDef),
              ?debugVal(Tokens),
              Data0 = lists:map(fun({{Property, _Type}, []}) -> {Property, null};
                                   ({{Property, Type}, Tok}) ->
                                        {Property, to_json_object(Type, Tok, Depth+1)}
  
negative.code:     %% if length(Col) > Len ->
      %%         error({"too long text", Col, Len});
      %%    true ->
      {list_to_binary(Property), to_json_object(Type, Col, Depth)}.
  %%end.
  
  