built in operator: smeasure-currency

        smeasure-currency seq
        returns the sum of all the coeffs in the given sequence
        in other words, the amount of currency used by that sequence
        probably less useful than measure-currency

        eg, for a currency preserving operator, op, we have:
            measure-currency seq == measure-currency op seq
        for any sequence seq

        smeasure-currency |>
            |number: 0>

        smeasure-currency ssplit[" "] |a b c d e f g>
            |number: 7>        

    see also:
        how-many, show-many, normalize, rescale, measure-currency