Rebol Programming/inside?

= USAGE: = INSIDE? p1 p2

= DESCRIPTION: = TRUE if both X and Y of the second pair are less than the first.

INSIDE? is a function value. = ARGUMENTS: =
 * p1 -- (Type: pair)
 * p2 -- (Type: pair)

= SOURCE CODE = inside?: func [ {TRUE if both X and Y of the second pair are less than the first.} p1 [pair!] p2 [pair!] ][   found? all [p2/x < p1/x p2/y < p1/y] ]