Create google.tcl

Find on google.