sub comp {
  my ($x,$y,$delta) = @_;
  $x -$delta >= $y && $x + $delta <= $y;
}