initialized newmodel.hs
functional SIR with rewritten compiler