#!/usr/bin/tclsh
# 名稱: ffmtab
# 作者: 洪朝貴 http://www.cyut.edu.tw/~ckhung/
# 初版日期: 1999 年 3 月
# 功能: 印出 f-f 乘法表

puts -nonewline "   "
for {set j 2} {$j < 0x10} {incr j} {
    puts -nonewline [format "%3x" $j]
}
puts ""

for {set i 2} {$i < 0x10} {incr i} {
    puts -nonewline [format "%3x" $i]
    for {set j 2} {$j < 0x10} {incr j} {
	puts -nonewline [format "%3x" [expr $i * $j ]]
    }
    puts ""
}