let dvamax l =
    let rec aux e1 e2 l =
    ( match l with
    | [x] -> if(x > e1) then (x,e1) else if (x > e2) then (e1, x) else (e1,e2)
    | h::t -> if(h > e1) then aux h e1 l else if (h > e2) then aux e1 h l else aux e1 e2 l
    )
    in aux 0 0 l;;