type Transaction() =
        let mutable seqNr = 0
        let mutable accNr = 0
        let mutable kr = 0
        let mutable cent = 0
        member x.sequenceNr
            with get() = seqNr
            and set(value) = seqNr <- value
        member x.AccountNr
            with get() = accNr
            and set(value) = accNr <- value
        member x.amountOfKr
            with get() = kr
            and set(value) = kr <- value
        member x.amountofCent
            with get() = cent
            and set(value) = cent <- value


let dotransaction(filename:string,accountNumber:int,currentBalance:string) =
         let transactions = loadfile filename
         let balancearr = currentBalance.Split('.')
         let kr = System.Int32.Parse(balancearr.[0])
         let cent = System.Int32.Parse(balancearr.[1])
         let myAcc = new MyAccount(accountNr = accountNumber, accountCent = cent, accountKr = kr)
         let temper = accountNumber
         for itr in transactions do
            match itr.AccountNr
               | accountNumber -> myAcc.ChangeBalance(itr.amountOfKr,itr.amountofCent)
         let result = myAcc.accountKr.ToString()+"."+myAcc.accountCent.ToString()
                 result