#include <tcl.h>

int main() {
  Tcl_Interp *interp = Tcl_CreateInterp();
  Tcl_Init(interp);
  Tcl_Preserve(interp);
  Tcl_MakeSafe(interp);
  int result = Tcl_Eval(interp, "clock format [clock seconds]");
  fprintf(stderr, "(%d) %s\n", result, interp->result);
  Tcl_DeleteInterp(interp);
  Tcl_Release(interp);
  return 0;
}