DB<79> sub leg { print "$_: ", -($_ < $l) || ($_ > $r) || 0, "\n" }

  DB<80> leg() for 0..6
0: -1
1: 0
2: 0
3: 0
4: 0
5: 1
6: 1