+ new_stuff `seqL`
+ ((), SimplCount (n _ADD_ increment) new_stuff unf)
+ where
+ new_stuff = inc_tick tick_type increment stuff
+
+
+inc_tick tick_type n [] = panic "couldn't inc_tick!"
+
+inc_tick tick_type n (x@(ttype, I# cnt#) : xs)
+ | ttype == tick_type = case cnt# +# n of
+ incd -> (ttype,IBOX(incd)) : xs
+
+ | otherwise = case inc_tick tick_type n xs of { [] -> [x]; ls -> x:ls }