1 l pic 99 1 s pic x(26) value'aeiouybcdfghjklmnpqrstvwxz' 1 r
pic 99 1 v pic 9 1 q pic 99. accept q perform test after varying
l from 1 by 1 until l>9 compute v=function mod(l,2) compute r=1+
function random(q*l)*5+v*15+v*5 display s(r:1)end-perform exit