alias ui {
  msg # $regsubex($str(.,7),/./g,     $+($chr(3),$r(1,7),$r(a,z)))
}