perl -E 'eval"say((".join("+",<>).")/$.)"'