thednaz

let rec reverse list =
    match list with
    |[] -> []
    |[x] -> [x]
    | head::tail -> reverse tail @ [head]

let rec rev list acc=
    match list with
    | [] -> acc
    | [x] -> x::acc