anchor.diff:  tofloat(P) when is_float(P) ->
   	P;
   tofloat(P) when is_binary(P) ->
  -	tofloat(binary_to_list(P));
  +	binary_to_float(P);
   tofloat(P) when is_list(P) ->
   	Str = string:join(string:tokens(P,","),"."),
   	case string:str(Str,".") of
  
positive.code: tobin(P) when is_atom(P) ->
  	atom_to_binary(P,latin1);
  tobin(P) when is_integer(P) ->
  	tobin(integer_to_list(P));
  tobin(P) when is_float(P) ->
  	tobin(bmochinum:digits(P)).
  
  
negative.code: toatom(P) when is_atom(P) ->
  	P.
  toint(<<_/binary>> = P) ->
  	binary_to_integer(P);
  toint([_|_] = P) ->
  	list_to_integer(P);
  toint(P) when is_integer(P) ->
  