(module-static #t)
(module-name <SchemeRunner>)

(define-namespace security "class:Security")

;; arbitrary rule about cash equivalence
(define (check-cash sec)
  (when (> (+ (security:get-asset-class sec)
              (security:get-sec-type sec)
              (security:get-days-to-maturity sec))
           5)
    (security:set-cash-equiv sec #t)))