add getQuotes.tcl