int(abs($_[0]) * 10**$D + 0.5) % 10**($D-2)