#include "mathlink.h"
/* send the expression Integrate[Sin[x],x] to a link */
void f(MLINK lp)
{
if(! MLPutFunction(lp, "Integrate", 2))
{ /* unable to put the function to lp */ }
if(! MLPutFunction(lp, "Sin", 1))
{ /* unable to put the function to lp */ }
if(! MLPutSymbol(lp, "x"))
{ /* unable to put the symbol to lp */ }
if(! MLPutSymbol(lp, "x"))
{ /* unable to put the symbol to lp */ }
if(! MLEndPacket(lp))
{ /* unable to send the end-of-packet indicator to lp */ }
if(! MLFlush(lp))
{ /* unable to flush any outgoing data buffered in lp */ }
}