anchor.diff:       [fun() ->
   	      {ok, MPInts} = cutkey:rsa(512, 65537, [{return, full}]),
   	      8 = length(MPInts),
  -	      Fun = fun(X) -> is_integer(crypto:erlint(X)) end,
  +	      Fun = fun(X) -> is_integer(erlint(X)) end,
   	      true = lists:all(Fun, MPInts)
         end,
         fun() ->
  
positive.code: 	false -> erlang:error(badarg)
      end.
  
  erlint(MPInts) -> [ crypto:erlint(X) || X <- MPInts ].
  
  -ifdef(TEST).
  
  
negative.code:      [fun() ->
  	      {ok, MPInts} = cutkey:rsa(512, 65537, [{return, bare}]),
  	      3 = length(MPInts),
  	      Fun = fun(X) -> is_integer(erlint(X)) end,
  	      true = lists:all(Fun, MPInts)
        end,
        fun() ->
  