;; open Assert

type cents = int

let attendees (price : cents) : int = 
	(15*price/ -10) + 870

let test1 () : bool = 
	attendees 500 = 120
;; run_test "attendees at 5.00" test1

let test () : bool = 
	attendees 490 = 135
;; run_test "attendees at 4.90" test				

let profit (price: cents) : cents =
	 let revenue = (attendees price) * price in
	 let cost = 18000 + 4 * (attendees price) in
	 revenue - cost 
			
let profit_five_dollars : cents = 
	let revenue = 120 * 500 in
	let cost = 18000 + 4 * 120 in
	revenue - cost
	
let test () : bool = 
	profit 500 = profit_five_dollars

;; run_test "Profit at 5.00" test