Create learn.tcl

Random Learn tcl.