sort xs = inorder ( suchbaum xs ) suchbaum [] = Leaf inorder Leaf = [] sort [] = inorder (suchbaum []) = []