let result (value: int list) =
let rec result value acc =
| head :: tail -> result tail (acc + head)
let list = [1; 2; 3; 4; 5; 6;];
printfn "Sum of list = %d" (result list)
printfn "Problem 5 piggybacked on 4"
printfn "Is list Empty: %b" (list.IsEmpty)
printfn "List's Length: %d" (list.Length)
printfn "First element: %d" (list.Head)
printfn "Second Element: %d" (list.Tail.Head)
printfn "Third: %d" (list.Tail.Tail.Head)
printfn "Last: %d" (list.Item(1))