Update solver.hs

intercalate "\n" == unlines