"softBank: " ++ x 40000 0.04 500 5000,
"strawberryBank: " ++ x 47777 0.02 0 5000]
x a b c d
= show $ d
*m
+ (a
*(b
+1)**m
-(1-(b
+1)**m
)/(-b
)*(d
-c
))*(b
+1) + c
where
bWFpbiA9IG1hcE1fIHB1dFN0ckxuIFsiaG9tb0NyZWRpdDogICAgICIgKysgeCA0MDAwMCAwLjAzIDEwMDAgNTAwMCwKCQkgICAgICAgInNvZnRCYW5rOiAgICAgICAiICsrIHggNDAwMDAgMC4wNCA1MDAgIDUwMDAsCgkJICAgICAgICJzdHJhd2JlcnJ5QmFuazogIiArKyB4IDQ3Nzc3IDAuMDIgIDAgICA1MDAwXQoKeCBhIGIgYyBkID0gc2hvdyAkIGQqbSArIChhKihiKzEpKiptLSgxLShiKzEpKiptKS8oLWIpKihkLWMpKSooYisxKSArIGMgd2hlcmUgCgltID0gZnJvbUludGVncmFsICQgZmxvb3IgJCBsb2dCYXNlIChiKzEpICQgKGQtYykvKCgtYikqYStkLWMp