let in_order tree  =
  let rec aux tree accumulator =
    match tree with
    | Nil -> accumulator
    |Member (left, value, right) -> 
      let acc_with_right = aux right accumulator  in
      let acc_with_value =  value :: acc_with_right  in
      aux left acc_with_value in
  aux tree []