m@main=do s<-getLine;putStrLn[toEnum$sum(map fromEnum s)`div`length s];m