#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 */ }}