anchor.diff:  
   %%arg_to_list(<<N:256>>) -> integer_to_list(N);
   arg_to_list(N) when is_integer(N) -> integer_to_list(N);
  -arg_to_list(<<$",_/binary>>=B) -> 		%A string
  -    binary_to_list(B);
   arg_to_list(B) when is_binary(B) ->		%A key
       aect_utils:hex_bytes(B);
   arg_to_list(T) when is_tuple(T) ->
  
positive.code:     #{<<"return_type">> := <<"ok">>,<<"return_value">> := Value} = CallReturn,
      {Value,CallReturn}.
  
  contract_create_tx(Pubkey, Privkey, HexCode, EncodedInitData) ->
      contract_create_tx(Pubkey, Privkey, HexCode, EncodedInitData, #{}).
  
  contract_create_tx(Pubkey, Privkey, HexCode, EncodedInitData, CallerSet) ->
      Address = aec_base58c:encode(account_pubkey, Pubkey),
  
negative.code: 
  %% args_to_list(Args) -> string().
  %%  Take a list of arguments in "erlang format" and generate an
  %%  argument binary string. We don't do strings yet.
  
  args_to_binary(Args) ->
      %% ct:pal("Args ~tp\n", [Args]),
      BinArgs = list_to_binary([$(,args_to_list(Args),$)]),
      %% ct:pal("BinArgs ~tp\n", [BinArgs]),
      BinArgs.
  
  args_to_list([A]) -> [arg_to_list(A)];		%The last one
  args_to_list([A1|Rest]) ->
  