alias hnt {
%a = 1
%b = $len($1-)
%hnt = $null
%hnts = $rand(0,6)
while (%a <= %b) {
if ($mid($1-,%b,1) != $chr(32)) {
if (%hnts >= 1) {
%hnt = . $+ %hnt
dec %b
dec %hnts
}
elseif (%hnts <= 1) {
%hnt = $mid($1-,%b,1) $+ %hnt
%hnts = $rand(0,6)
dec %b
}
}
elseif ($mid($1-,%b,1) == $chr(32)) {
%hnt = $chr(32) $+ %hnt
dec %b
}
return %hnt
}
}