@prog impediment.muf:mixedcase
1 9999 d
1 i
: mixcase-string
	"" explode dup 1 + swap 1 -1 for pop
		dup rotate random 1 & if toupper else tolower then swap
	loop 1 - "" implode
;
: main
	0 swap begin dup while
		100 strcut swap mixcase-string rot 1 + rot
	loop
	pop "" rimplode
;
.
c
q