#!/usr/bin/perl -w

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

my $line;
my @input_row;
while (defined ($line = <STDIN>)) {
	chomp $line;
	for ($line) {
		if (defined $_) {
			s/\\/\\\\/g;
			s/\t/\\t/g;
			s/\n/\\n/g;
			s/\0/\\0/g;
		} else {
			$_ = "\0";
		}
	}
	print "$line\n";
}