OCaml: рисование бинарных деревьев

Я работаю над некоторыми программами, использующими деревья. Мне было интересно, есть ли какой-нибудь фрагмент кода для рисования общих деревьев в OCaml.

type Tree = Node of Tree * int * Tree | Child of int;;

Все, что я нахожу в Интернете, использует Caml Light, а не Objective Caml.
Заранее спасибо.