1 files changed, 26 insertions, 0 deletions
diff --git a/Examples/tcl/simple/example.tcl b/Examples/tcl/simple/example.tcl
new file mode 100644
index 000000000..3a6683aa7
--- /dev/null
+++ b/Examples/tcl/simple/example.tcl
@@ -0,0 +1,26 @@
+#
+# Tcl script for testing simple example
+
+# Try to load as a dynamic module.  If not, we'll just assume
+# that it was statically linked in.
+
+catch { load ./example.so example}
+catch { load ./example.dll example}    ;# Windows
+
+puts [get_time]
+set tcl_precision 17
+puts "My Variable = $My_variable"
+for {set i 0} {$i < 14} {incr i 1} {
+    set n [fact $i];
+    puts "$i factorial is $n"
+}
+
+for {set i 1} {$i < 250} {incr i 1} {
+    for {set j 1} {$j < 250} {incr j 1} {
+	set n [mod $i $j]
+	set My_variable [expr {$My_variable + $n}]
+    }
+}
+
+puts "My_variable = $My_variable"
+