$ perl -e 'use integer; print -8 + -15 * 0.5, "\n";'