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