you can use $regsubex to create passwords much easier
$regsubex($$str(.,$input(password length:,eoq,,3)),/(.)/g,$iif(1 & \n,$r(A,z),$r(0,9)))