Evaluated proc map2hb_line line { for {set x 0} {$x < [llength $line]} {incr x} {   }  }