alias rstring {
  unset %rstring
  set %rchar 1
  if ($1 !isnum || $1 < 1) { echo -a Incorrect number! | return }
  else { set %rchars $1 }
  while (%rchar <= %rchars) {
    set %rstring $+(%rstring,$iif($rand(0,1) == 0, $iif($rand(0,1) == 0, $rand(A,Z), $rand(a,z)), $rand(0,9)))
    inc %rchar
  }
  $iif($isid, return, echo -a) %rstring
}