qqq say $qqq1($1-)
qqq1 {
  var %tx = $1-
  %tx = $replace(%tx,,6) 
  %tx = $replace(%tx,,a) 
  %tx = $replace(%tx,,b)
  %tx = $replace(%tx,,sh)
  %tx = $replace(%tx,,d)
  %tx = $replace(%tx,,f)
  %tx = $replace(%tx,,j)
  %tx = $replace(%tx,,h) 
  %tx = $replace(%tx,,i)
  %tx = $replace(%tx,,j)
  %tx = $replace(%tx,,k)
  %tx = $replace(%tx,,L) 
  %tx = $replace(%tx,,m)
  %tx = $replace(%tx,,n)
  %tx = $replace(%tx,,o)
  %tx = $replace(%tx,,P) 
  %tx = $replace(%tx,,Q)
  %tx = $replace(%tx,,r)
  %tx = $replace(%tx,,s)
  %tx = $replace(%tx,,t) 
  %tx = $replace(%tx,,e)
  %tx = $replace(%tx,,v)
  %tx = $replace(%tx,,x) 
  %tx = $replace(%tx,,y)
  %tx = $replace(%tx,,z)
  %tx = $replace(%tx,?,?)
  %tx = $replace(%tx,,7)
  %tx = $replace(%tx,,`7)
  %tx = $replace(%tx,,9)
  %tx = $replace(%tx,,6)
  %tx = $replace(%tx,,w)
  %tx = $replace(%tx,,3)
  %tx = $replace(%tx,,ye)
  %tx = $replace(%tx,,e)
  %tx = $replace(%tx,,g)
  %tx = $replace(%tx,,co)
  %tx = $replace(%tx,,z)
  %tx = $replace(%tx,,w)
  %tx = $replace(%tx,,th)
  %tx = $replace(%tx,,`6)
  %tx = $replace(%tx,,a) 
  %tx = $replace(%tx,b,b)
  %tx = $replace(%tx,c,c)
  %tx = $replace(%tx,d,d)
  %tx = $replace(%tx,e,e)
  %tx = $replace(%tx,f,f)
  %tx = $replace(%tx,g,g)
  %tx = $replace(%tx,h,h) 
  %tx = $replace(%tx,i,i)
  %tx = $replace(%tx,j,J)
  %tx = $replace(%tx,k,k)
  %tx = $replace(%tx,l,L) 
  %tx = $replace(%tx,m,m)
  %tx = $replace(%tx,n,n)
  %tx = $replace(%tx,o,4o)
  %tx = $replace(%tx,p,7) 
  %tx = $replace(%tx,q,q)
  %tx = $replace(%tx,r,r)
  %tx = $replace(%tx,s,s)
  %tx = $replace(%tx,t,t) 
  %tx = $replace(%tx,u,u)
  %tx = $replace(%tx,v,v)
  %tx = $replace(%tx,w,w)
  %tx = $replace(%tx,x,x) 
  %tx = $replace(%tx,y,y)
  %tx = $replace(%tx,z,z)
  %tx = $replace(%tx,,d)
  %tx = $replace(%tx,,gh)
  %tx = $replace(%tx,,dh)
  %tx = $replace(%tx,,t)
  %tx = $replace(%tx,,a)
  %tx = $replace(%tx,,a)
  %tx = $replace(%tx,,a)
  return %tx
}
