$_=<>;$b=y/o//;s#.#$b+=($&^I)-print$b/length$',"e2
"#ge