Create coinprice.tcl