val parse_record :
string ->([ `Record of (Core.tls_hdr * string) * string| `Fragment of string ],
[> `Unexpected of [> `Content_type of int ]| `Protocol_version of [> `Unknown_record of int * int ]| `Record_overflow of int ])result
val parse_handshake_frame : string ->string option * string