1 files changed, 1 insertions(+), 1 deletions(-)

M names.tcl

@@ 27,4 27,4 @@ proc lrandom L {
 # now print a bunch of names to stdout using lrandom
 for {set i 0} {$i < $names} {incr i} {
     puts "[lrandom $firstnames] [lrandom $lastnames]"
-}>
\ No newline at end of file
+}