Someone

alias orit {
  var %x $1-
  tokenize 32 1 $null
  tokenize 32 $1 $len(%x)
  tokenize 32 $1 $2
  while ($1 <= $2) {
    tokenize 32 $1 $2 $3- $+ $chr(32) $+ $mid(%x,$1,1)
    tokenize 32 $calc($1 + 1) $2 $3-
  }
  return $3-
}