#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Aplmsg; Getvect; Indxsub; Mdivide;
     Outrprd; Power; Quadout; Real;
     Aplcb c,w,x,y;
     #include "aplinit.h"

     indxorg = 0;
     x=getvect("Enter X values");
     y=getvect("Enter Y values");
     c=quadout(mdivide(y,outrprd(power,
         x,real(indxsub(*(x->apldim))))));
}