Gzip encoding for MarkLogic REST extension

gzip-encoding.xqy

let $result := element result {"Hi"}
return 
  if(fn:contains(xdmp:get-request-header("Accept-encoding"),"gzip"))
  then
  (
  document {
  xdmp:gzip(
  text { $result } )
  },
  xdmp:add-response-header("Content-encoding", "gzip")
  )
  else document {$result}