{
nf = ""
if ($0 !~ /[\'\,\;\:\.\?\!\^\¨\*]/)
	{
	print $0
	next
	}
else
if ($0 ~ / ¨ /)
	gsub (/ ¨ /, "· ", $0)
else 
if ($0 ~ / ¨/)
	gsub (/ ¨/, "· ", $0)
else 
if ($0 ~ /\* \*/)
	gsub (/\* \*/, "**", $0)
else 
while (nf <= NF)
	{
	if ($nf ~ /[a-zA-Z]'[a-zA-Z]/)
		sub (/'/, "' ", $nf)
	else 
	if ($nf ~ /[a-zA-Z],$/)
		sub (/,/, " ,", $nf)
	else 
	if ($nf ~ /[a-zA-Z];$/)
		sub (/;/, " ;", $nf)
	else 
	if ($nf ~ /[a-zA-Z]:$/)
		sub (/:/, " :", $nf)
	else 
	if ($nf ~ /[a-zA-Z]\?$/)
		sub (/\?/, " ?", $nf)
	else 
	if ($nf ~ /[a-zA-Z]\!$/)
		sub (/\!/, " !", $nf)
	else 
	if ($nf ~ /[a-zA-Z]\^$/)
		sub (/\^/, " ^", $nf)
	else 
	if ($nf ~ /[a-zA-Z]\.$/)
		sub (/\./, " .", $nf)
	else 
	if ($nf ~ /\(/ && $nf !~ /\&\(/ && $nf !~ /^\(/)
		sub (/\(/, " (", $nf)
	else 
	if ($nf ~ /\)/ && $nf !~ /\&\)/ && $nf !~ /^\)/)
		sub (/\)/, " )", $nf)
	else 
	if ($nf ~ /\[/ && $nf !~ /\&\[/ && $nf !~ /^\[/)
		sub (/\[/, " [", $nf)
	else 
	if ($nf ~ /\]/ && $nf !~ /\&\]/ && $nf !~ /^\]/)
		sub (/\]/, " ]", $nf)
	else 
	if ($nf ~ /\&K/)
		sub (/\&K/, "&¦", $nf)
	else 
	if ($nf ~ /\&k/)
		sub (/\&k/, "&¦", $nf)
	else 
	if ($nf ~ /\&C/)
		sub (/\&C/, "&©", $nf)
	else 
	if ($nf ~ /\&c/)
		sub (/\&c/, "&®", $nf)
	nf++
	}
print $0
}