anchor.diff:      %% to many chars
       io:format("test: is_qval/1  - 7~n"),
       false = is_qval("0.1234"),
  -    
  +
       %% float out of range
       io:format("test: is_qval/1  - 8~n"),
       false = is_qval("1.001"),
  
positive.code:     io:format("test: strip/3 - 16~n"),
      "+abc-" = strip("+abc-", both, ""),
  
      ok.
  
  
  
negative.code:     case catch list_to_float(Str) of
  	{'EXIT', _} ->
  	    case catch list_to_integer(Str) of
  		{'EXIT', _} ->
  		    throw({error, string_not_float_or_integer});
  		Int ->
  		    float(Int)
  	    end;
          Float ->
  