Finish these methods in scheme please

; The following exercises will use the following format for individual sales ;(orderNum (orderDate shipDate) (grossSale discount profit unitPrice) (deliveryMethod province) product)

; Returns the unit price information out of a given record for a sale. ; (getUnitPrice '(3 ("10/13/2010" "10/20/2010") (261.54 0.04 -213.25 38.94) ("Regular Air" "Nunavut") "Eldon Base for stackable storage shelf, platinum")) -> 38.94

(define (getUnitPrice sale) ; TODO: Fill this in 0 ; stub -- modify it accordingly )

; Tests (mydisplay "7. GETUNITPRICE --------------------------------------") (mydisplay (getUnitPrice '(3 ("10/13/2010" "10/20/2010") (261.54 0.04 -213.25 38.94) ("Regular Air" "Nunavut") "Eldon Base for stackable storage shelf, platinum"))) (mydisplay (getUnitPrice '(293 ("10/1/2012" "10/2/2012") (10123.02 0.07 457.81 208.16) ("Delivery Truck" "Northwest Territories") "1.7 Cubic Foot Compact Cube Office Refrigerators")))

; Returns the province information out of a given record for a sale. ; (getProv '(3 ("10/13/2010" "10/20/2010") (261.54 0.04 -213.25 38.94) ("Regular Air" "Nunavut") "Eldon Base for stackable storage shelf, platinum")) -> Nunavut

(define (getProv sale) ; TODO: Fill this in 0 )

; Returns true if the profit of a given sale record is a positive number, false otherwise ; (isProfitPos '(3 ("10/13/2010" "10/20/2010") (261.54 0.04 -213.25 38.94) ("Regular Air" "Nunavut") "Eldon Base for stackable storage shelf, platinum")) -> #f

(define (isProfitPos sale) ; TODO: Fill this in 0 )