(* 20.1 *) 
 
#use "sect20_1/color.ml" ;; 
 
(* 20.2 *) 
 
(* 20.3 *) 
 
(* 20.4 *) 
 
(* 20.5 *) 
 
#use "sect20_5/empty.ml" ;; 
 
(* 20.6 *)