/ut {
  var %x $regsubex($1-,/(*UTF8)(.)/g,$mid(\A,-\n,1))
  msg # $replacex(%x,a,ɐ,b,q,c,ɔ,d,p,e,ǝ,f,ɟ,g,ƃ,h,ɥ,i,ı,j,ɾ,k,ʞ,m,ɯ,n,u,p,d,q,b,r,ɹ,t,ʇ,u,n,v,ʌ,w,ʍ,y,ʎ,$chr(40),$chr(41),$chr(41),$chr(40),$chr(91),$chr(93),$chr(93),$chr(91),!,¡,$chr(123),$chr(125),$chr(125),$chr(123),_,‾,.,˙,<,>,>,<,?,¿,;,؛,',$chr(44),$chr(44),',',$chr(44),؛,;,¿,?,<,>,˙,.,‾,_,$chr(123),$chr(125),¡,!,$chr(91),$chr(93),$chr(40),$chr(41),ʎ,y,ʍ,w,ʌ,v,n,u,ʇ,t,ɹ,r,b,q,d,p,ɯ,m,ʞ,k,ɾ,j,ı,i,ɥ,h,ƃ,g,ɟ,f,ǝ,e,ɔ,c,ɐ,a)
}