anchor.diff:              ?ERR("~p ~p ~p ~p",
                    [create_drain, missing_ch, Id, dict:to_list(Dict)]);
           Val1 ->
  -            Ch = if is_binary(Val1) -> list_to_integer(binary_to_list(Val1));
  -                    is_list(Val1) -> list_to_integer(Val1),
  +            Ch = convert_to_integer(Val1),
               case dict_find(<<"token">>, Dict) of
                   undefined ->
                       ?ERR("~p ~p ~p ~p",
  
positive.code:     [Id | _] = binary:split(Bin, <<":">>),
      Id.
  
  dict_from_list(List) ->
      dict_from_list(List, dict:new()).
  
  
negative.code:             ?ERR("~p ~p ~p ~p",
                   [create_token, missing_ch, Id, dict:to_list(Dict)]);
          Val1 ->
              Ch = convert_to_integer(Val1),
              Name = dict_find(<<"name">>, Dict),
              Token = #token{
                  id=Id,
  