anchor.diff:      end;
   map_put(NK,NV, emptymap) -> {map, {NK, NV}, emptymap, emptymap, 1}.
   
  -
  -
   map_rotate({map, KV, L, R, _}) ->
       LD = map_depth(L),
       RD = map_depth(R),
  
positive.code: % キーはリスト(文字列)限定
  % 値は何でもOK
  % 機能は空マップ生成、キーによる値の配置と参照、
  % および全データの取得のみ
  %  空マップ生成 map_new()
  %  配置         map_put( key, value, map )
  %  参照         map_get( key, map )
  %  全データ取得 map_data( map )
  
  comp([],[]) -> eq;
  comp(_,[]) -> gt;
  
negative.code: 
  map_new() -> emptymap.
  
  map_get(FK, {map, {K,V}, L, R, _}) ->
      case comp(FK, K) of
          eq -> {ok, V};
          lt -> map_get(FK, L);
  