perl -e "print map +$_ -1, 1;"
     0