#!/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]; }