My version of sol1.hs