do 20
pull a
s=0*a
do i=1 to 5
s=s+countstr(substr(60889,i,1),a)
end
say s
end