let breathBT tree=
    let rec helper nodeQueue=
        match nodeQueue with
        | [] -> []
        | Empty :: tail -> helper(tail)
        | Node(value,tl,tr) :: tail -> value :: helper(tail@List(tl,tr))
        in
        helper tree;;