6 lines
No EOL
124 B
Text
6 lines
No EOL
124 B
Text
type t = N | P (t, t)
|
|
|
|
let leaf : t = N<>
|
|
|
|
let a_tree : t =
|
|
P<> (P<> (P<> (leaf, leaf), P<>(leaf, P<>(leaf, leaf))), leaf) |