print+(/ /<<$_-$')-$_*/ 1$/for<>