alias ra1 {
  set %rainbow $1-
  %rainbow = $replace(%rainbow,a,2a,b,3b,c,4c,d,5d,e,6e,f,7f,g,8g,h,9h,i,10i,j,11j,k,12k,l,13l,m,14m,n,15n,o,2o,p,3p,q,4q,r,5r,s,6s,t,7t,u,8u,v,9v,w,10w,x,11x,y,12y,z,13z,=,14=,?,2?,!,3!,",4",£,5£,$,6$,%,7%,^,8^,&,9&,*,10*,$chr(40),11 $+ $chr(40),$chr(41),13 $+ $chr(41),-,3-,_,4_,=,5=,+,6+)
  say %rainbow
  unset %rainbow
}

alias ascii {
  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
}