let rec in_list element = function |[] -> false; |el :: ssl -> (element = el) || (in_list element ssl)