module Calculator where

import SME.Untrustworthy 
import Policy 
import Prelude hiding (readFile,writeFile)

-- Calculator
data CreditTerms = CT { discount :: Rational, ddays :: Rational, net :: Rational } 
                   deriving (Read, Show)


calculator :: ME ()
calculator = do  loanStr    <- readFile "Client"
                 termsStr   <- readFile "Client-Terms"
                 let  loan      = read loanStr      
                      terms     = read termsStr     
                      interest  = loan - loan * (1 - discount terms / 100)
                      disct     = discount terms / (100 - discount terms)
                      ccost     = disct * 360/(net terms - ddays terms)
                 writeFile "Client-Interest" (show interest)
                 writeFile "Client-Statistics" (show ccost)
                 -- writeFile "Client-Statistics" (loanStr)