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