The language is OCAML, I need help with this ocaml function. I finished most of it, I just want to get rid of the chars trailing it and

https://pastebin.com/qcQucSsf

My output : read_bracket "[abc]d" 1;; - : tok list = [Ch 'a'; Ch 'b'; Ch 'c'; Ch ']'; Ch 'd']

what I want

[BR "abc"; Ch 'd']