Add simple tcl example
Merge branch 'master' of https://github.com/ya790206/example_code