input(.random,io_findunit(),1,"/dev/urandom")
while	&ALPHABET random @rand
	output = rand = rand - (rand / 20) * 20
	eq(rand,10)	 :f(while)
end