g
Size: a a a
D
D
R
VS
SS
let format (input: string) =
    match fun a b -> input.StartsWith a && input.EndsWith b with
    | f when f "{" "}" -> "JSON"
    | f when f "[" "]" -> "JSON"
    | f when f "<" ">" -> "XML"
    | _ -> "PlainText"PD
let format (input: string) =
    match fun a b -> input.StartsWith a && input.EndsWith b with
    | f when f "{" "}" -> "JSON"
    | f when f "[" "]" -> "JSON"
    | f when f "<" ">" -> "XML"
    | _ -> "PlainText"оГ
оГ
I
X
оГ
X
AH
let format (input: string) =
    match fun a b -> input.StartsWith a && input.EndsWith b with
    | f when f "{" "}" -> "JSON"
    | f when f "[" "]" -> "JSON"
    | f when f "<" ">" -> "XML"
    | _ -> "PlainText"let (|Between|_|) (a: string) (b: string) (x: string) =
if x.StartsWith a && x.EndsWith b then Some () else None
let format' = function
| Between "{" "}"
| Between "[" "]" -> "JSON"
| Between "<" ">" -> "XML"
| _ -> "PlainText"
I
let format (input: string) =
    match fun a b -> input.StartsWith a && input.EndsWith b with
    | f when f "{" "}" -> "JSON"
    | f when f "[" "]" -> "JSON"
    | f when f "<" ">" -> "XML"
    | _ -> "PlainText"SS