#use "warmup.ml";;
#use "testUtils.ml";;

(* TEST prod *)
let answer = prod [5;4;1;2;3];;
prt_int answer ;;

(* TEST add_tail *)
let answer = add_tail [1;2] 3 ;;
prt_int_list answer;;

(* TEST index *)
let answer = index [5;4;1;2;3] 2;;
prt_int answer ;; 

(* TEST unzip *)
let answer = unzip [(1,2);(3,4)] ;;
prt_int_tuple_list answer ;;

(* TEST app_int *)
let myf x = x + 5;;
let answer = app_int myf 3 7;;
prt_int_list answer ;;

(* My tests here *)