call tcl from c

#include <stdio.h>
#include <tcl.h>

main (int argc, char *argv[]) {

        Tcl_Interp *myinterp;
        int status;

        printf ("Your Tcl Program will run ... \n");

        myinterp = Tcl_CreateInterp();
        status = Tcl_EvalFile(myinterp,argv[1]);

        printf ("Your Tcl Program has completed\n");
}