tcl.c:35: warning: cast from pointer to integer of different size
tcl.c:71: warning: cast to pointer from integer of different size