miscutils/rot

#!/usr/bin/awk -f
{
	m = split($0, a, "");
	n = m > n ? m : n;
	for (i = 1; i <= n; i++)
		s[i] = s[i]a[i];
}
END {
	for (i = n; i > 0; i--)
		print s[i];
}