G:a
PRESS ENTER KEY
.
:g/^./ .,/^$/-1 join

function! CrunchLines()
exec G
exec :
exec  a
exec return
.
:g/^./ .,/^$/-1 join
endfu
com! CRUNCH call CrunchLines()