(* Baseline: List functions exercise *)
let xs = [1; 2; 3; 4; 5] ;;
let doubled = List.map (fun x -> x * 2) xs ;;
let total = List.fold_left (fun a b -> a + b) 0 doubled ;;
total