$odd=0;{local($SIG{__WARN__},$^W)=(sub{$odd++})x2;+{1..abs($n)}};