Shred defmain for 4-table schema

Works fine in production.