-- FP1 lab exercises 5, 21 March 2011


type Item = String
type Price = Float
type Basket = [(Item,Price)]


mybasket :: Basket
mybasket = [("butter",1.75),
            ("milk",0.90),
            ("cheese",2.61),
            ("eggs",1.80),
            ("wine",6.35),
            ("chocolate",1.76)]