passgens can be done too easily..

alias passgen {
  %len = $r(11,20)
  %count = 0
  while (%count < %len) {
    inc %count
    if ($r(1,100) < 50) { %pass = %pass $+ $r(0,9) }
    else { 
       if ($r(1,100 < 50) { %pass = %pass $+ $r(a,z) }
       else { %pass = %pass $+ $r(A,Z) }
    }
  }
  echo %pass
}