            let out = \s -> writer ((), s)
                inp = return "42"
                run = register (Money 0) inp out
                result = lines (snd (runWriter run))
            result `shouldBe` ["42.00"]

        it "can add amounts, printing the total" $ do