near? function (See related posts)

    near?: func [
        {Returns true if the values are <= 1E-15 apart.}
        value1 [number! money! time!]
        value2 [number! money! time!]
        /within  "Specify an alternate maximum difference (epsilon)."
            e [number! money! time!] "The epsilon value."
    ][
        e: abs any [e  to value1 1E-15]
        e >= abs value1 - value2
    ]