module M = Gemini.MimeTextGemini.MimeTextGemini

let test_parse s = M.gemini_to_canon_str (M.str_to_gemini s)

module T = Gemini.MimeType.MimeType
module R = Gemini.Request.GeminiTransaction(T)

let main =
  match R.request "gemini://gemini.circumlunar.space/\r\n" with
  | Some (_, _, s) -> print_endline s
  | _ -> print_endline "oops"