method
add_stat (a,b,c) =
(* add one new item to stats *)
stats := (self
#
add_item a b c !stats)