:I

what_is_my_life.ml

let list_print (l: string list) : unit =
	(* *)
	List.iter ( print_endline ) l;;


let rec oxford (l: string list) : string =
	(* match the value of list, or replace with foldL 
	somehow until it works? *)
	match List.length l with
	| [] -> ""
	| h :: [] -> h
	| h :: t when List.length t = 1 -> h ^ " and " ^ oxford t
	| h :: t when List.length t <> 1 -> h ^ ", " ^ oxford t
	| _ -> "?" (* wat *)


oxford [];;
oxford ["a"];;
oxford ["a"; "b"];;
oxford ["a"; "b"; "c"];;