perl -Mbignum -E " for $x( -1,0,1){ $y = 0;  sub F{say $x % $y} F; $x->bdiv; F;} "
-1
-inf
0
NaN
1
inf