Mine

a {
set %ascii $1-
%ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)
say %ascii
unset %ascii
}




rev {
var %old = $strip($1-), %temp = $len(%old), %char, %string
while (%temp > 0) {
  %char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
  else { %string = %string $+ %char } | dec %temp 
}
if ($isid) return %string | else msg # %string
}




r {
var %temp = 1, %max = $len($1-), %char, %string, %color = 3 4 5 6 7 8 9 10 11 12 13, %cs = $rand(1,$numtok(%color,32))
while (%temp <= %max) {
  %char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
  elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string  $+ $gettok(%color,%cs,32) $+ %char }
  else { %string = %string $+  $+ $gettok(%color,%cs,32) $+ %char }
  inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
}
if ($isid) return %string | else msg # %string
}