Create maryjane.tcl

Here it is. This may not be the best version to start with but its a start. From here it will get better.