(* 名前と成績の組から評価を出力する *)
(* seiseki : string * string -> string *)
let seiseki pair = match pair with
	(a, b) -> a ^ " さんの評価は " ^ b ^ " です"

let test1 = seiseki ("たまご", "A") = "たまご さんの評価は A です"