$ perl -le 'print for map $_%-3, -18..-15'
0
-2
-1
0