val compress : ?level:int -> string -> string
val uncompress : string -> (string, unit) result