% perl -le 'print +(0, 1)[0.999999]'
0