Well, the idea is you're given a set of words that will fit into such a grid.

As for your request, I think it wouldn't be too challenging to write such a program. I shall try now.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;