open System
open SixLabors.ImageSharp
open SixLabors.ImageSharp.PixelFormats
open SixLabors.ImageSharp.Processing

[<EntryPoint>]
let main argv =
    use image = Image.Load(argv.[0])

    image.Mutate (fun x -> x.Resize(image.Width / 2, image.Height / 2).Grayscale() |> ignore)

    image.Save (sprintf "%s-grey.jpg" argv.[0])
    
    0