Personally I would not write a new package for this. I would write a procedure in "contacts-populate-procs.tcl" that sets up these business data for any organization. Take a look at some of the procedures in there to get a feeling what I am talking about.