anchor.diff:  %%--------------------------------------------------------------------
   sample(Dom) ->
       foldn(fun(T) ->
  -                  {_,Val} = pick(Dom, 20 + random:uniform(10) ),
  +                  {_,Val} = pick(Dom, 20 + rand:uniform(10) ),
                     [Val|T]
             end,
             [],
  
positive.code: %%
  -spec map() -> domrec(map()).
  map() -> 
      #?DOM{kind=#map{},
            pick=fun map_pick/2}.
  
  map_pick(#?DOM{kind=#map{}}, SampleSize) ->
      NewMap = foldn(
        fun(A) ->
            {_Dom1, KeyVal} = pick(arbitrary_term(0), 2), % TODO: why does 1 not work for samplesize
  
negative.code:              any ->
                   case EmptyOK of
                       true ->
                           rand:uniform(SampleSize)-1;
                       false ->
                           rand:uniform(SampleSize)
                   end;
               Size ->
                   Size
           end,
      BinValue = list_to_binary(foldn(fun(T) -> [rand:uniform(256)-1 | T] end,
                                      [],
                                      Sz)),
      {BinDom, BinValue}.
  