(* あらかじめ 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 :: person 3 :: [] *) 
(* person1, person2, person3 の定義については ex08_3.ml を参照 *)