alias bw {
  unset %bw.*
  var %bw.point 1
  while (%bw.point <= $len($1-)) {
    if ($mid($1-,$+(-,%bw.point),1) == $chr(32)) { set %bw.textput %bw.textput $chr(32) | inc %bw.point }
    else { set %bw.textput %bw.textput $+ $mid($1-,$+(-,%bw.point),1) | inc %bw.point } 
  }
  say %bw.textput 
}