alias _ran { 
  var %i = 1 
  while $mid($3,%i,1) { 
    var %a = a.i.o.u.e 
    if ($istok(%a,$mid($3,%i,1),46)) { 
      var %is = $1,%im = 0 
      while %is { 
        dll whilefix.dll WhileFix
        if ($istok(%a,$mid($3,$calc(%i + %is - 1),1),46)) { 
          inc %im 
        } 
        if (%im == $1) { return evet } 
        if ($calc((%i + %im) -1) >= $2) { return } 
        dec %is 
      } 
    } 
    inc %i 
  } 
}