let l = [1;2;3;4;5];;
let rec mem
list element
= match list with | [] -> false
| head :: _ when head = element -> true
| _ :: tail -> mem tail element
in
Printf.printf
"%B \n" (mem l
3) ;;
bGV0IGwgPSBbMTsyOzM7NDs1XTs7CgpsZXQgcmVjIG1lbSBsaXN0IGVsZW1lbnQgPSBtYXRjaCBsaXN0IHdpdGggCgl8IFtdIC0+IGZhbHNlCgl8IGhlYWQgOjogXyB3aGVuIGhlYWQgPSBlbGVtZW50IC0+IHRydWUKCXwgXyA6OiB0YWlsIC0+IG1lbSB0YWlsIGVsZW1lbnQKaW4KUHJpbnRmLnByaW50ZiAiJUIgXG4iIChtZW0gbCAzKSA7Ow==