tcl中switch的用法

有哪位大侠知道，tcl中的switch当满足条件1或者条件2时，做相同的事情,不想同样的command写两遍，该如何写?switch $a {
1 { < command 1> }
2 { < command 1> }
3 { < command 2> }
4 { < command 3> }
default { echo "haha" }

proc
为什么非要>=5个字符，好几次了。个人认为不科学，要大于5个字符 ctrl+v 就行了

switch $a {
1 -
2 { < command 1> }
3 { < command 2> }
4 { < command 3> }
default { echo "haha" }

man switch在tclshell里面，

！