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