: inside? ( x start len -- flag ) >r - r> u< ;