Evaluated proc wrap {{cols 20} str} {string range [broken_wrap $str $cols] 1 end}