let tree1 := leaf (8) in 
let tree2 := leaf (5) in
let tree3 := leaf (3) in
let tree4 := makeTree (9, tree2, tree3) in 
let tree5 := makeTree (7, tree4, tree4) in
let tree6 := makeLtree (2, tree1) in
let tree7 := makeTree (1, tree3, tree5) in
let tree8 := makeRtree (4, tree7) in
let tree9 := makeTree (6, tree4, tree4) in			(* 점수, 정답 *)
write (if isEmpty (rTree(tree1)) then 1 else 0);	(* 0.5, 1 *)
write (if isEmpty (tree2) then 1 else 0);			(* 0.5, 0 *)
write (if isEmpty (tree9) then 1 else 0);			(* 0.5, 0 *)
write (nodeVal (tree3));							(* 0.5, 3 *)
write (nodeVal (tree5));							(* 0.5, 7 *)
write (nodeVal (tree7));							(* 0.5, 1 *)
dft (tree1);										(* 1.0, 8 *)
dft (tree8);										(* 1.0, 4137953953 *)
dft (tree9);										(* 1.0, 6953953 *)
bft (tree2);										(* 1.0, 5 *)
bft (tree6);										(* 1.0, 28 *)
bft (tree7)											(* 1.0, 137995353 *)