(:*******************************************************:)
(:Test: zero-or-onenpi1args-1                             :)
(:Written By: Carmelo Montanez                            :)
(:Date: Fri Dec 10 10:15:47 GMT-05:00 2004                :)
(:Purpose: Evaluates The "zero-or-one" function          :)
(: with the arguments set as follows:                    :)
(:$arg = xs:nonPositiveInteger(lower bound)              :)
(:*******************************************************:)

fn:zero-or-one(xs:nonPositiveInteger("-999999999999999999"))