let
register_parser f g = (str_item_parser := f; sig_item_parser := g)