diff --git a/tcl/foo.tcl b/tcl/foo.tcl
new file mode 100755
index 0000000..af1cb43
--- /dev/null
+++ b/tcl/foo.tcl
@@ -0,0 +1,45 @@
+#!/usr/bin/env tclsh8.5
+
+# 配列 set hoge(ix1) 123
+# puts $hoge(ix1)
+# $をつけると 変数参照、無いと文字列
+# "" だと変数が展開され、{ } だと展開されない。
+
+# set hoge1 {aaa bb {ccc ddd eee}}
+# puts [lindex $hoge1 0]
+# puts [lindex [lindex $hoge1 2] 0]
+
+# argc, argv   [lindex $argv 0]
+
+# [] 別コマンド(tclの)を実行
+# ()は配列の添字
+
+# set 代入、puts、append hoge 文字列 → うしろに配列要素追加
+# if {条件} {true} else {false式}
+# for {開始処理}{繰り返し条件}{incr 変数名}{処理}
+# expr 計算式	→ 例: set kotae [expr 1+2]
+# lindex 変数名 n番目
+# llength 変数名
+# 演算子 + - * / %, > < <= >= == !=
+# regsub
+
+set kotae ""
+for {set i 1} {$i <= 30} {incr i} {
+    if {$i % 15 == 0} {
+	append kotae "FizzBuzz "
+    } elseif {[expr $i % 5 == 0]} {
+	append kotae "Buzz "
+    } elseif {$i % 3 == 0} {
+	append kotae "Fizz "
+    } else {
+	append kotae [format "%03d " $i]
+    }
+}
+puts $kotae
+ 
+set c 10
+set d 5
+if {$c * $d < 100} {
+    puts "Yes"
+}
+exec kterm