Unnamed

rrand {
  var %str, %i = 1, %a1 = $$1, %a2 = $$2, %c = $iif($3 == $null, 1, $3)

  if ((%a1 isnum && %a2 isnum) || (%a1 !isnum && %a2 !isnum)) {
    while (%i <= %c) {
      if (%a1 isnum) {
        %str = $calc(%str + $rand(%a1, %a2))
      }
      else {
        %str = %str $+ $rand(%a1, %a2)
      }

      inc %i
    }
  }
  else {
    return 0
  }

  return %str
}