alias randhint {
  var %x .8 * $len($1),%y $1
  while (.8 < %x) dec %x $regsub(%y,(.{ $+ $r(0,950) $+ })[^_],\1_,%y)
  return %y
}