basicExchangeData :: Exchange
basicExchangeData = Exchange (Map.fromList d)
    where
      d = [((A,B), 1.2)
          ,((A,C), 0.89)
          ,((B,A), 0.88)
          ,((B,C), 5.10)
          ,((C,A), 1.1)
          ,((C,B), 0.15)]
basicExchangeData :: Exchange
basicExchangeData = Exchange (Map.fromList d)
    where
      d = [((A,B), 1.2)
          ,((A,C), 0.89)
          ,((B,A), 0.88)
          ,((B,C), 5.10)
          ,((C,A), 1.1)
          ,((C,B), 0.15)]
basicExchangeData = Exchange (Map.fromList d)
    where
      d = [((A,B), 1.2)
          ,((A,C), 0.89)
          ,((B,A), 0.88)
          ,((B,C), 5.10)
          ,((C,A), 1.1)
          ,((C,B), 0.15)]