let register_str_item_printer f = str_item_printer := f