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 {

        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

  }

}