#include <tcl.h>
#include <tk.h>
 
int main(void)
{
  Tcl_Interp *interp = Tcl_CreateInterp();
  Tcl_Init(interp);
  Tk_Init(interp);
  Tcl_Eval(interp, "wm title . \"Hello Window\"\n"
                   "wm geometry . \"250x120\"");
  Tk_MainLoop();

  return 0;
}