external compress : string -> string = "caml_wrapper_compress";;

let main : unit -> unit = fun () ->
	let input : string = "abcd" in
	let output : string = compress input in
	print_string output;;

main ();;