main :: IO ()
-- main = putStrLn $ show $ entferneBlaetter $ NKnoten "hello" [NBlatt "leaf", NKnoten "empty" [], NKnoten "stuff" [NBlatt "leaf", NKnoten "stuff" [NBlatt "leaf"]]]
main = putStrLn $ show $ entferneBlaetter $ NKnoten "test" []
main :: IO ()
main = putStrLn $ show $ entferneBlaetter $ NKnoten "test" []
main = putStrLn $ show $ entferneBlaetter $ NKnoten "test" []