#!/usr/bin/perl

while (<>) {
    chomp;

    for ($s = 0; $s < length($_); $s += 79) {
	$x = substr ($_, $s, 79);
	$l = length($x) - 1;
	$y = ' ' x 79;
	for ($i = 0; $i <= $l; ++$i) {
	    substr($y, 78 - $i, 1) = substr($x, $i, 1);
	}
	$y =~ tr [()<>{}\[\]] [)(><}{\]\[];
	print "$y\n";
    }
}