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