content: property pstrNoText : "(//@type=empty) union (//@line matches '^\\s*$')"
  
  -- STRIP OUT ALL BLANK LINES
  -- CAUTION !! -- ONLY USE THIS EXPERIMENTALLY WITH TOY DATA !!
  
  on run
  	tell application "FoldingText"
  		set lstDocs to documents
  		if lstDocs ≠ {} then my StripBlanks(item 1 of lstDocs)
  	end tell
  end run
  
  on StripBlanks(oDoc)
  	tell application "FoldingText"
  		tell oDoc
  			---- GET A COMMA-DELIMITED LIST OF THE IDS OF EMPTY NODES
  			set strNodes to (body of (read JSON (HTTP request URI "/nodes.json?path=" & pstrNoText & "&attributes=id")))
  			set {dlm, my text item delimiters} to {my text item delimiters, ","}
  			
  			-- DELETE ALL THE EMPTY NODES ...
  			-- (providing a comma-delimited list of IDs)
  			HTTP request method "DELETE" URI "/nodes/" & ((run script strNodes) as text)
  			set my text item delimiters to dlm
  		end tell
  	end tell
  end StripBlanks