Create messages.tcl