leet { set %x $replace($1-,a,4,b,8,c,$chr(40),d,| $+ $chr(41)) 
  return %x