#!/bin/rc

# usage: $0 separator <file

awk -v 'f=1' -v 's='^$1 '
	{
		split($f, a, s)
		$f = ""
		for(i = length(a); i > 0; i--)
			$f = $f a[i] (i == 1 ? "" : s)
		print $0
	}
'