alias ud {
  var %o = $len($1-),%ud
  while (%o) {
    %ud = $+(%ud,$replace($mid($1-,%o,1),$chr(32),$chr(160)))
    dec %o
  }
  if ($isid) return %ud
  %ud = $replace(%ud,a,ɐ,b,q,c,É”,d,p,e,ǝ,f,ÉŸ,g,ƃ,h,É¥,i,ı,j,ɾ,k,Êž,l,ʃ,m,ɯ,n,u,o,o,p,d,q,b,r,ɹ,s,s,t,ʇ,u,n,v,ÊŒ,w,ʍ,x,x,y,ÊŽ,z,z,1,¹,2,²,3,³)
  say %ud
  unset %ud
}