in ocaml, how do i find the max value of a list of ints? in ruby

let rec max_value lst = 
    match lst with
    | [] -> failwith "empty list"
    | [x] -> x
    | hd::tl -> max hd (max_value tl)
131 chars
6 lines

main.rb
def max_value(lst)
    lst.max
end
35 chars
4 lines