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