module RealEstate =
        struct
                let sum_list = List.fold_left (fun a b -> a +. b) 0.
       
                class agent name =
                        object(self)
                                val mutable commissions = []
                               
                                method get_name = name
                                method name_nil = name = ""
                               
                                method add_commission amount = 
                                        commissions <- amount :: commissions
                                       
                                method total_commissions = sum_list commissions
                        end
                       
                exception No_listing_agent
                       
                class basic_property address init_asking_price =
                        object(self)
                                val mutable asking_price = init_asking_price
                                val mutable selling_price = 0
                                val mutable listing_agent = ref (new agent "")
                                val mutable selling_agent = ref (new agent "")
                                val mutable sold = false
                               
                                method private listing_agent_commision_rate = 0.
                                method private selling_agent_commision_rate = 0.
                               
                                method get_asking_price = asking_price
                                method get_selling_price = selling_price
                               
                                method get_address = address
                               
                                method increase_asking_price_by amount =
                                        asking_price <- asking_price + amount
                                       
                                method decrease_asking_price_by amount =
                                        asking_price <- asking_price - amount
                                       
                                method set_selling_price amount =
                                        selling_price <- amount
                                       
                                method has_listing_agent = not !listing_agent#name_nil
                                method has_selling_agent = not !selling_agent#name_nil
                               
                                method get_listing_agent = !listing_agent
                                method get_selling_agent = !selling_agent
                               
                                method set_listing_agent new_agent =
                                        listing_agent <- ref new_agent
                               
                                method set_selling_agent new_agent =
                                        selling_agent <- ref new_agent
                                       
                                method sold = sold
                                method set_sold = sold <- true
                               
                                method as_string =
                                        if sold then
                                                Printf.sprintf "The property at %s sold for $%d" address selling_price
                                        else
                                                Printf.sprintf "The property at %s is for sal, asking $%d" address asking_price
                                       
                                method close =
                                        let listing_agent_commission =
                                                ((float_of_int selling_price) *. self#listing_agent_commision_rate) and
                                        selling_agent_commission =
                                                ((float_of_int selling_price) *. self#selling_agent_commision_rate) in
                                                if self#has_listing_agent && self#has_selling_agent then
                                                        begin
                                                                !listing_agent#add_commission listing_agent_commission;
                                                                !selling_agent#add_commission selling_agent_commission
                                                        end
                                                else if self#has_listing_agent then
                                                        let total_commission = listing_agent_commission +. selling_agent_commission in
                                                                !listing_agent#add_commission total_commission
                                                else
                                                        raise No_listing_agent;
                                                self#set_sold
                        end
                       
                class residential_property address init_asking_price =
                        object(self)
                                inherit basic_property address init_asking_price as super
                               
                                method private listing_agent_commision_rate = 0.02
                                method private selling_agent_commision_rate = 0.03
                        end
                       
                class rental_property address init_asking_price rental_income =
                        object(self)
                                inherit basic_property address init_asking_price as super
                               
                                method private listing_agent_commision_rate = 0.03
                                method private selling_agent_commision_rate = 0.03
                               
                                method rental_income = rental_income

                                method as_string =
                                        super#as_string ^ Printf.sprintf ", and offers annual rental income of $%d" rental_income
                        end
        end

open RealEstate
open Printf
include RealEstate

let prop = new residential_property "42 Oak St." 2_000
let lister = new agent "Bob Smith"
prop#set_listing_agent (ref lister)
prop#set_selling_price 3_000
prop#close

Printf.printf "Commission: %f\n" lister#total_commissions