Something

alias hint { 
  var %b $1 
  while $count(%b,.) < $len($remove(%b,$chr(32))) && $v1 < $calc($replace($2,%,/100* $v2)) { 
    var %a $r(1,100) 
    if $mid(%b,%a) >= ! { 
      if . $+ $mid($v1,2) { 
      } 
    } 
    %b = $left(%b,$({,%a)) $+ $v1 
  } 
  return %b 
}