do 600
a=linein()
b=length(a)
s=0
do i=1 to b
s=s+c2d(substr(a,i,1))
end
say d2c(s%b)
end