#include <tcl.h>

Tcl_ObjCmdProc BangCmd;

int
BangCmd (ClientData clientData, Tcl_Interp *interp,
	int objc, struct Tcl_Obj * const objv[])
{
    int *i = 0L;
    *i = 20;
    return TCL_OK;
}

#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLEXPORT

EXTERN int
Bang_Init (Tcl_Interp *interp)
{
#ifdef USE_TCL_STUBS
    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
	return TCL_ERROR;
    }
#endif
    Tcl_CreateObjCommand(interp, "bang", BangCmd, NULL, NULL);
    return TCL_OK;
}