import Text.Printf f (m,k,d,acc) = (m+1, k*1.01 - 88, k*0.01, acc + k*0.01) g (m,k,d,acc) = printf " %2d %7.2f %7.2f %7.2f" m k d acc
Standard input is empty
0 2650.00 0.00 0.00 1 2588.50 26.50 26.50 2 2526.38 25.88 52.38 3 2463.65 25.26 77.65 4 2400.29 24.64 102.29 5 2336.29 24.00 126.29 6 2271.65 23.36 149.65 7 2206.37 22.72 172.37 8 2140.43 22.06 194.43 9 2073.84 21.40 215.84 10 2006.57 20.74 236.57 11 1938.64 20.07 256.64 12 1870.03 19.39 276.03 13 1800.73 18.70 294.73 14 1730.73 18.01 312.73 15 1660.04 17.31 330.04 16 1588.64 16.60 346.64 17 1516.53 15.89 362.53 18 1443.69 15.17 377.69 19 1370.13 14.44 392.13 20 1295.83 13.70 405.83 21 1220.79 12.96 418.79 22 1145.00 12.21 431.00 23 1068.45 11.45 442.45 24 991.13 10.68 453.13 25 913.04 9.91 463.04 26 834.17 9.13 472.17 27 754.52 8.34 480.52 28 674.06 7.55 488.06 29 592.80 6.74 494.80 30 510.73 5.93 500.73 31 427.84 5.11 505.84 32 344.11 4.28 510.11 33 259.56 3.44 513.56 34 174.15 2.60 516.15 35 87.89 1.74 517.89 36 0.77 0.88 518.77 0 1220.00 0.00 0.00 1 1144.20 12.20 12.20 2 1067.64 11.44 23.64 3 990.32 10.68 34.32 4 912.22 9.90 44.22 5 833.34 9.12 53.34 6 753.68 8.33 61.68 7 673.21 7.54 69.21 8 591.95 6.73 75.95 9 509.87 5.92 81.87 10 426.96 5.10 86.96 11 343.23 4.27 91.23 12 258.67 3.43 94.67 13 173.25 2.59 97.25 14 86.99 1.73 98.99 15 -0.14 0.87 99.86