En författare har räknat ut , att det senaste fransk-tyska kriget kostade Frankrike sammanlagdt 40 millioner francs.