main = mapM_ putStrLn ["homoCredit:     " ++ solushon 40000 0.03 1000 5000,
                       "softBank:       " ++ solushon 40000 0.04 500  5000,
                       "strawberryBank: " ++ solushon 47777 0.02  0   5000]
 
solushon totalToPay annualPercentRate serviceCosts breakfastMoney = show $ breakfastMoney*time + (totalToPay*(annualPercentRate+1)**time-(1-(annualPercentRate+1)**time)/(-annualPercentRate)*(breakfastMoney-serviceCosts))*(annualPercentRate+1) + serviceCosts where 
	time = fromIntegral $ floor $ logBase (annualPercentRate+1) $ (breakfastMoney-serviceCosts)/((-annualPercentRate)*totalToPay+breakfastMoney-serviceCosts)

bWFpbiA9IG1hcE1fIHB1dFN0ckxuIFsiaG9tb0NyZWRpdDogICAgICIgKysgc29sdXNob24gNDAwMDAgMC4wMyAxMDAwIDUwMDAsCiAgICAgICAgICAgICAgICAgICAgICAgInNvZnRCYW5rOiAgICAgICAiICsrIHNvbHVzaG9uIDQwMDAwIDAuMDQgNTAwICA1MDAwLAogICAgICAgICAgICAgICAgICAgICAgICJzdHJhd2JlcnJ5QmFuazogIiArKyBzb2x1c2hvbiA0Nzc3NyAwLjAyICAwICAgNTAwMF0KIApzb2x1c2hvbiB0b3RhbFRvUGF5IGFubnVhbFBlcmNlbnRSYXRlIHNlcnZpY2VDb3N0cyBicmVha2Zhc3RNb25leSA9IHNob3cgJCBicmVha2Zhc3RNb25leSp0aW1lICsgKHRvdGFsVG9QYXkqKGFubnVhbFBlcmNlbnRSYXRlKzEpKip0aW1lLSgxLShhbm51YWxQZXJjZW50UmF0ZSsxKSoqdGltZSkvKC1hbm51YWxQZXJjZW50UmF0ZSkqKGJyZWFrZmFzdE1vbmV5LXNlcnZpY2VDb3N0cykpKihhbm51YWxQZXJjZW50UmF0ZSsxKSArIHNlcnZpY2VDb3N0cyB3aGVyZSAKCXRpbWUgPSBmcm9tSW50ZWdyYWwgJCBmbG9vciAkIGxvZ0Jhc2UgKGFubnVhbFBlcmNlbnRSYXRlKzEpICQgKGJyZWFrZmFzdE1vbmV5LXNlcnZpY2VDb3N0cykvKCgtYW5udWFsUGVyY2VudFJhdGUpKnRvdGFsVG9QYXkrYnJlYWtmYXN0TW9uZXktc2VydmljZUNvc3RzKQ==