最近在学tcl和二笔，写了个打字的小程序。

tcl代码