Simple deblank function needed

["Frank J. Wancho" <WANCHO@SIMTEL20.ARPA>]

I need a TECO function which will remove multiple blank lines inside a
text region.  If the text consists of paragraphs with undented initial
lines, such as this message, it should insert n blanks at the
beginning of that initial line and reformat the paragraph before
continuing.

Sounds simple enough, right?  Well, it would have been easy if only
double-CRLFs occur in the text.  But, some writers go for multiple
blank lines which would require multiple passes using simple
search-and-replace.

I am hoping that someone already has such a function or one close
enough that I can fix to make it work as described above.  If you know
of one, please sent it to me or send a pointer.

Thanks,
Frank