Bitcoin-related stuff using the scripting language Tcl(/Tk)