(* 問題 9.1 *) 
 
["春"; "夏"; "秋"; "冬"] ;; 
 
(* 問題 9.2 *) 
 
(* あらかじめ ex08_3.ml を読み込んでおく必要あり *) 
#use "ex08_3.ml" ;; 
 
[{name = "浅井"; shincho = 1.72; taiju = 58.5; 
   tsuki = 9; hi = 17; ketsueki = "A"}; 
 {name = "宮原"; shincho = 1.63; taiju = 55.0; 
   tsuki = 6; hi = 30; ketsueki = "B"}; 
 {name = "中村"; shincho = 1.68; taiju = 63.0; 
   tsuki = 6; hi = 6; ketsueki = "O"}] 
 
(* または [persor1; person2; person3] *) 
(* person1, person2, person3 の定義については ex08_3.ml を参照 *)