you could slap ~70 chars off your password generation with:
while $len(%p) < 22 var ,%p %p $+ $iif($r(/,z) isalnum,$v1)
does that mean you should? no! code size is not always a good measure of code quality :P