gistfile1.nim

type
  TNode_S = ptr object
    id: int
    child_l: TNode_S
    child_r: TNode_S

var 
  counter = 0
  wurzel: TNode_S = nil

proc create_node(l: TNode_S, r: TNode_S): TNode_S =
  result = cast[TNode_S](alloc0(sizeof(TNode_S)))
  result.id = counter
  result.child_l = l
  result.child_r = r
  inc(counter)

proc make_tree(depth: int): TNode_S =
  if depth > 1:
    result = create_node(make_tree(depth - 1), make_tree(depth - 1))
  else:
    result = create_node(nil, nil)

when isMainModule:
  var num = 24

  # benchmarking code can go here