anchor.diff:      case L of
           skip ->
               norm(T, Opts, Acc);
  +        keep ->
  +            norm(T, Opts, [U, 16#c3|Acc]);
           _ ->
               norm(T, Opts, [L|Acc])
       end;
  
positive.code: %% EUnit tests
  %% ===================================================================
  
  %%-define(TEST, true).
  -ifdef(TEST).
  -include_lib("eunit/include/eunit.hrl").
  
  
negative.code:     S4 = "-!",
      <<>> = normalize(S4),
      <<"!">> = normalize(S4, #{allowed=>[$!]}),
      <<"-!">> = normalize(S4, #{allowed=>[$!], unrecognized=>keep}),
      <<"+!">> = normalize(S4, #{allowed=>[$!], unrecognized=>$+}),
  
      [<<"a">>,<<"bcd">>,<<"ef">>] = normalize_words(".  á //   bcd e.f ;;"),
      [<<"a">>,<<"bcd">>,<<"e">>,<<"f">>] = normalize_words(".  á //   bcd e.f ;;", #{allowed=>[$.]}),
  
  
  
      ok.
  
  
  