dehtml = function(s)
	return s:gsub('<p>', '\n\n')
			:gsub('<br>', '\n')
			:gsub('<br/>', '\n')
			-- hacky
			:gsub('<[^>]*>', '')
			:gsub('&#39;', "'")
			:gsub('&apos;', "'")
			:gsub('&quot;', '"')
			:gsub('&ldquo;', '"')
			:gsub('&rdquo;', '"')
			:gsub('&lt;', '<')
			:gsub('&gt;', '>')
			:gsub('&amp;', '&')
end