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]
]