anchor.diff:      {_,_,_,false} = {Big,Small,SmallGtBig,
   		     Small > Big},
       {_,_,_,true} = {Big,Small,SmallLtBig,
  -		    Small < Big}.
  +		    Small < Big},
  +    {_,_,_,false} = {Big,Small,SmallEqBig,
  +		     Small == Big},
  +    {_,_,_,false} = {Big,Small,BigEqSmall,
  +		     Big == Small}.
   
   id(I) -> I.
       
  
positive.code: 		 io_lib:format("~f > ~p",[Big,Small])),
      BigLtSmall = lists:flatten(
  		 io_lib:format("~f < ~p",[Big,Small])),
      SmallGtBig = lists:flatten(
  		   io_lib:format("~p > ~f",[Small,Big])),
      SmallLtBig = lists:flatten(
  		   io_lib:format("~p < ~f",[Small,Big])),
      cmp(Big,Small,BigGtSmall,BigLtSmall,SmallGtBig,SmallLtBig);
  cmp(Big,Small) when is_float(Small) ->
      BigGtSmall = lists:flatten(
  		   io_lib:format("~p > ~f",[Big,Small])),
      BigLtSmall = lists:flatten(
  		   io_lib:format("~p < ~f",[Big,Small])),
      SmallGtBig = lists:flatten(
  		   io_lib:format("~f > ~p",[Small,Big])),
      SmallLtBig = lists:flatten(
  		   io_lib:format("~f < ~p",[Small,Big])),
      cmp(Big,Small,BigGtSmall,BigLtSmall,SmallGtBig,SmallLtBig).
  
  cmp(Big,Small,BigGtSmall,BigLtSmall,SmallGtBig,SmallLtBig) ->
      {_,_,_,true} = {Big,Small,BigGtSmall,
  		    Big > Small},
      {_,_,_,false} = {Big,Small,BigLtSmall,
  
negative.code:     span_cmp(Axis, round(Axis) bsr 52, Length).
  span_cmp(Axis, Incr, Length) ->
      [span_cmp(Axis, Incr, Length, 1 bsl (1 bsl I)) || I <- lists:seq(0,6)].
  %% This function creates tests around number axis. Both <, > and == is tested
  %% for both negative and positive numbers.
  %%
  %% Axis: The number around which to do the tests eg. (1 bsl 58) - 1.0
  %% Incr: How much to increment the test numbers inbetween each test.
  %% Length: Length/2 is the number of Incr away from Axis to test on the
  %%         negative and positive plane.
  %% Diff: How much the float and int should differ when comparing
  span_cmp(Axis, Incr, Length, Diff) ->
      [begin
  	 cmp(round(Axis*-1.0)+Diff+I*Incr,Axis*-1.0+I*Incr),
  