let rec parseArgs args =
    match args with
    [] ->
        ()
    "-h" :: rest ->
        printfn "Usage: ayane [options] files"
        parseArgs rest
    s :: rest ->
        printfn "%A: unknown option"
        Environment.Exit 1

[<EntryPoint>]
let main argv =
    printfn "%A" argv
    parseArgs(List.ofSeq argv)
    0