<>;/.* /,print$a=$\=$'-$_,$/,!s/\S+ /$a-=$-=$a-$'+$&/gefor<>