Factoring constants out of Main.hs