set strdo [format "%d %s" [expr {[string length $strh]/2}] $strh]
set o "[lindex $bm 0] $strdo\n"
append o [format "%d\n" [expr {[llength $bm]-1}]]
set strdo [format "%d %s" [expr {[string length $strh]/2}] $strh]
set o "[lindex $bm 0] $strdo\n"
append o [format "%d\n" [expr {[llength $bm]-1}]]