alias phil {
  var %x = 1
  while (%x <= $len($1)) {
    if ($mid($1,%x,1) == +) {
      var %++ = 1
      var %-- = 0
    }
    if ($mid($1,%x,1) == -) {
      var %-- = 1
      var %++ = 0
    }
    if (!$istok(+ -,$mid($1,%x,1),32)) && ((%++) || (%--)) {
      if (%++) {
        var %+ = $+(%+,$mid($1,%x,1))
      }
      elseif (%--) {
        var %- = $+(%-,$mid($1,%x,1))
      }
    }
    inc %x
  }
  var %x = 1
  while (%x <= $len(%-)) {
    var %+ = $remove(%+,$mid(%-,%x,1))
    inc %x
  }
  echo -a %+ %-
 
}