let int_seq_raw_item_to_item () =
let scores = Queue.create () in
generic_aggregator
~flush:(fun () ->
let l = Queue.to_list scores in
Queue.clear scores;
List.concat l)
~add:(fun l -> Queue.enqueue scores l)
~is_empty:((=) [])
~unnamed_sequence:(fun x -> `unnamed_int_seq x)
()