Evaluated proc map2hb mmap { set out ""; for {set y 0} {$y < [llength $mmap]} {incr y 2} {  } }