/*  Compute the sum of digits depreciation factor for
**  the seventh year of an asset whose life is ten
**  years, and calculate the depreciation amount.
*/
deprFact = depr(type = 'SU', period = 7, life = 10);
deprAmt  = deprFact * cost;