anchor.diff:  	 simplify=fun(_Dom,Val) -> Val end}.
   
   
  +%% @spec any()  -> domain()
   any()  ->
       #?DOM{kind=any,
   	  generate=fun(#?DOM{kind=any}=Dom,GS) ->
  
positive.code: 	 }.
  
  %% @doc Returns the domain of characters i.e., integers in the range `$a..$z'.
  char() -> 
      #?DOM{kind=char,
  	  generate  = fun(_,_GS) -> $a + random:uniform($z - $a + 1)-1 end,
  
negative.code: 		   end
  	 }.
  
  %% @doc Returns the domain of integers in the range M =&lt; X =&lt; N
  %% @spec choose(M,N) -> domain()
  choose(M,N) when is_integer(M), is_integer(N), M<N ->
      #?DOM{kind={choose,M,N},
  	  generate=fun(_,_) ->
  