Someone

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