(= active-threshold* 1500) (def active-rank (s) (apply + (map [max 0 (- active-threshold* (item-age _))] (cdr (family s)))))