open System
open System.IO

[<EntryPoint>]
let main argv =
    let rec getRootFolder () =
        printfn "Bitte geben Sie den zu bereinigenden Ordner an:"
        let input = Console.ReadLine()
        if Directory.Exists(input) then
            input
        else
            getRootFolder()

    let rec iterateThroughDirectoryAndDelete currentPath  =
        Directory.GetDirectories currentPath |> Array.iter iterateThroughDirectoryAndDelete
        let lastFolderInPath = currentPath.Split Path.DirectorySeparatorChar |> Array.last
        match lastFolderInPath with
        | "packages" | "bin" | "obj" -> (Directory.Delete(currentPath,true))
                                        printfn "%s wird gelöscht" currentPath
        |_ -> ()

    getRootFolder() |> iterateThroughDirectoryAndDelete

    printfn "Ende"
    Console.ReadKey() |> ignore
    0 // return an integer exit code