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
	  }
	}

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

  }

}