DrugiMax

let rec drugimax l drugi =
( match l with
    | [x] -> if(maxel l > x && drugi < x) then x else drugi
    | h::t -> if(maxel l > h && drugi < h) then drugimax t h else drugimax t drugi
);;