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