(* 16.1 *) 
 
(* 16.2 *) 
 
#use "sect16_2/total_distance.ml" ;; 
 
(* 16.3 *) 
 
#use "sect16_3/reverse.ml" ;; 
 
(* 16.4 *) 
 
(* 16.5 *)