let
register_printer f g = (str_item_printer := f; sig_item_printer := g)