nodesLevelOrder :: BinTree a -> [a]
nodesLevelOrder t = neuesErgebnis [t] --Gibt die nodes wie eine Breitensuche aus, also root, dann root vom linken Baum, dann root vom rechten Baum,...

neuesErgebnis :: [BinTree a] -> [a]
neuesErgebnis [] = []
neuesErgebnis (EmptyBinTree:xs) = neuesErgebnis xs
neuesErgebnis ((NonEmptyTree lt r rt):xs) = [r]++(neuesErgebnis (xs++[lt]++[rt]))