#include "randombytes.h"
#include "crypto_nP.h"
#include "fe25519.h"

#define mladder CRYPTO_SHARED_NAMESPACE(mladder)
extern void mladder(fe25519_10l_dense *,const unsigned char *,const unsigned char *);

void crypto_nP(unsigned char *r, const unsigned char *s, const unsigned char *p) {

  	unsigned char e[32],f[32];
  	int i;
  	fe25519 u[2];
	fe25519_10l_dense t[2];
  	
  	for(i=0;i<32;i++) {e[i] = s[i]; f[i] = p[i];}
  
  	mladder(t,f,e);
  	fe25519_10l_dense_to_4l(u,t+1);  	
  	fe25519_invert(u+1,u);
  	fe25519_4l_to_10l_dense(t+1,u+1);  	
  	fe25519_mul(t,t,t+1);
  	fe25519_10l_dense_to_4l(u,t);  	
  	fe25519_pack(r,u);
}