Simple console app that helps calculate the hex size for body content in a transfer-encoding request

chunksizer.fs

open System

[<EntryPoint>]
let main argv =
    printfn "enter lines and end with EOF\n"
    let sep = "\r\n"

    let rec builder acc = 
        let line = Console.ReadLine ()
        if line.Contains "EOF" then
            let final = line.Substring (0, line.IndexOf "EOF")
            (acc + sep + final).TrimStart (sep.ToCharArray())
        else
            builder (acc + sep + line)

    let body = builder ""

    let hexlen = body.Length.ToString "X"
    printfn "\ncopy between [START and END]\n\n[START\n%s\n%s\n0\n\nEND]" hexlen body
    0