Write an Ocaml function that recognizes strings in a char list? I need to write an Ocaml function that reads a list of chars and returms true if (ab)^k k>0. EXAMPLE1: parse ['a';'b';'a';'b'] -: bool true. EXAMPLE2: parse ['a';'b';'a'] -: bool false.

So far, I have:

let rec parse thelist = match thelist with

| [] -> false

| hd::tl -> = 'a' || parse tl;;

This code only finds if there is an 'a' somewhere in the list. It needs to find if (ab)^k k>0