spacepaste

  1.  
  2. type stree =
  3. | Leaf of int
  4. | Node of int * stree list
  5. function
  6. | Leaf i as tree
  7. | Node (i, _) as tree -> i, tree
  8.