local function mkstr(d)
	local dat = "\""
	for i=1, #d do
		if (d:sub(i,i) == "\\") then
			dat = dat .. ("\\\\")
		elseif (d:sub(i,i) == "\"") then
			dat = dat .. ("\\\"")
		elseif (d:sub(i,i) == "\n") then
			dat = dat .. ("\\n")
		elseif (d:sub(i,i) == "\r") then
			dat = dat .. ("\\r")
		elseif (d:sub(i,i) == "\t") then
			dat = dat .. ("\\t")
		else
			dat = dat .. (d:sub(i,i))
		end
	end
	dat = dat .. ("\"")
	return dat
end

io.stdout:write(mkstr(io.stdin:read("*a")))