anchor.diff:  			      X <- "ABCDEFG",
   			      not is_less_than(X, $E),
   			      X rem 2 == 1>>),
  +    <<1,3>> = cs_default(<< <<(length(L))>> ||
  +                             L <- [[],[a],[],[x,y,z]],
  +                             case L of
  +                                 [] -> false;
  +                                 [_|_] -> true
  +                             end >>),
   
       %% Filtering by a non-matching pattern.
       <<"abd">> = cs_default(<< <<X:8>> ||
  
positive.code: 
      ok.
  
  -undef(BAD).
  
  matched_out_size(Config) when is_list(Config) ->
  
negative.code: 	   end,
      <<>> = Fun5([], 1, 1, 1),
      <<7:3,8:40,9:56>> = Fun5([7], 3, 5, 7),
  
      Fun5a = fun(List, Sz1, Sz2, Sz3) ->
                      cs(<< <<"abc",E:Sz1,(E+1):Sz2/unit:8,"qqq",(E+2):Sz3/unit:8,"xyz">> ||
                            E <- List >>)
  	   end,
      <<>> = Fun5a([], 1, 1, 1),
      <<"abc",7:3,8:40,"qqq",9:56,"xyz">> = Fun5a([7], 3, 5, 7),
  
      Fun6 = fun(List, Size) ->
  		   cs(<< <<E:8,(E+1):Size>> || E <- List >>)
  