[구상준]

#let tree1 =
NODE
[NODE
[NODE [LEAF "a"; LEAF "/"; LEAF "b"]; LEAF "-";
NODE [NODE [LEAF "c"; LEAF "*"; LEAF "d"]; LEAF "+"; LEAF "e"]];
LEAF "%"; LEAF "F"];;

- : tree =
NODE
[NODE
[NODE [LEAF "a"; LEAF "/"; LEAF "b"]; LEAF "-";
NODE [NODE [LEAF "c"; LEAF "*"; LEAF "d"]; LEAF "+"; LEAF "e"]];
LEAF "%"; LEAF "F"]

# goUp(goRight (goRight (goDown (goDown (goRight (goRight (goDown (goDown (LOC (tree1, TOP))))))))));;
- : location =
LOC (NODE [LEAF "c"; LEAF "*"; LEAF "d"],
HAND ([],
HAND ([LEAF "-"; NODE [LEAF "a"; LEAF "/"; LEAF "b"]],
HAND ([], TOP, [LEAF "%"; LEAF "F"]), []),
[LEAF "+"; LEAF "e"]))

[최종욱]

덕분에 실수 하나 잡았네영 감사합니당 >_<
_________________
Jongwook Choi
Seoul National University, School of Computer Science & Engineering