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