#!/usr/bin/perl -w

@ARGV == 0
	or die "syntax: $0 < input > output\n";

my $line;
my @input_row;
while (defined ($line = <STDIN>)) {
	for ($line) {
		if ($_ eq "\0") {
			undef $_;
		} else {
			s/([^\\]|^)((?:\\\\)*)\\0/$1$2\0/g;
			s/([^\\]|^)((?:\\\\)*)\\n/$1$2\n/g;
			s/([^\\]|^)((?:\\\\)*)\\t/$1$2\t/g;
			s/\\\\/\\/g;
		}
	}
	print "$line";
}