let store_parse f c = (store c; f c c.lexbuf)