numeric digits 2e3
do 1e3
pull a
a=4**a
s=0
do i=1 to length(a)
s=s+substr(a,i,1)
end
say s
end