#!/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