on *:input:*:*: {
  var %intext $1-
  var %out $null
  var %space 1
  var %count 1
  var %len $len($1-)
  while (%count<=%len) {
    var %ch $mid(%intext,%count,1)
	if ($asc(%ch) == 32) {
	  if (%space == 0) {
	    var %out %out $chr(32)
      }
      var %space 1
    }
    else {
      var %out %out %ch
      var %space 0
    }
    inc %count
  }
  msg $active %out
}