#include "mathlink.h"/* send a one-dimensional list of 16-bit integers to a link */void f(MLINK lp){ short list[10], i; for(i = 0; i < 10; i++) list[i] = i; if(! MLPutInteger16List(lp, (short *)list, 10)) { /* unable to send the list to lp */ }}