#include "mathlink.h"

/* put the expression Sqrt[2.7] to a link */

void f(MLINK lp)
{
    if(! MLPutFunction(lp, "Sqrt", 1))
        { /* unable to put Sqrt[] to lp */ }

    if(! MLPutReal64(lp, 2.7))
        { /* unable to put 2.7 to lp */ }

    if(! MLEndPacket(lp))
        { /* unable to put the end-of-packet sequence to lp */ }

    if(! MLFlush(lp))
        { /* unable to flush any output buffered in lp */ }
}