Create pow.tcl