tcl/tkによる簡単な乱数生成スクリプト