Diff

Differences From Artifact [3db466f589]:

To Artifact [202699a30e]:


1
2
3
4
5
6
7
8
9
10
11
1
2
3

4
5
6
7
8
9
10



-







#! /usr/bin/env tclsh

lappend auto_path [file join [file dirname [info script]] lib]
lappend auto_path [file join [file dirname [info script]] test-lib]
lappend auto_path [file join [file dirname [info script]] ..]
package require tsmf

proc maxlen {list} {
	set maxlen 0
	foreach item $list {
		set len [string length $item]