/worms {
  var %blah $1-
  var %sdfsdf $len(%blah)
  var %i 2
  var %blah2 $left(%blah,1)
  while (%i <= %sdfsdf) {
    if ($right($left(%blah,%i),1) == $chr(32)) {
      var %blah2 %blah2  
    }
    else {
      var %blah2 %blah2 $+   $+ $right($left(%blah,%i),1)
    }
    inc %i
  }
  %i = 2
  msg $active %blah2
  while (%i <= %sdfsdf) {
    var %blah2 $right($left(%blah,%i),1)
    var %j 0
    while (%j < $calc((2 * %i) - 3)) {
      var %blah2 %blah2 $+  
      inc %j
    }
    var %blah2 %blah2 $+ $right($left(%blah,%i),1)
    msg $active %blah2
    inc %i
  }
}