let rec firstElements list  =
    match list with
    | list[head::tail] ->
        match head with
        | [head::tail] -> 1st @ head then firstElements tail