/bw {
  var %i = 0
  unset %x
  ;set %x $replace($mid($replace(text,$chr(32),$chr(1)),pos,len),$chr(1),$chr(32))
  while (%i < $len($1-)) {
    if ($mid($1-,$calc($len($1-) - %i),1) == $chr(32)) {
      set %x $+(%x,$chr(32))
    }
    else {
      set %x $+(%x,$mid($1-,$calc($len($1-) - %i),1))
      inc %i
      echo %x %i
    }
  }
  /say %x
}