let register_topphrase_filter f = Queue.add f topphrase_filters