let parser_wrapper_ch ic _parser = _parser (from_channel ic)