this is another example of where $regsubex is very useful
alias mkpass echo -a your pass is: $regsubex($str(.,$1),/./g,$iif($regex(\n,/d*[2468]),$r(a,Z),$r(A,z)))
ex: /mkpass 50 = your pass is: QaB^zaOZJSx\Ka]`^C\^^[]__ZCmh^_X^G^^a[[_[^aZe
__ZCm