#!perl -p
$_/=2-$_%2