moreComplex :: Exchange
moreComplex = Exchange (Map.fromList d)
    where
      d = [((A,B), 3.1)
          ,((A,C), 0.0023)
          ,((A,D), 0.35)
          ,((B,A), 0.21)
          ,((B,C), 0.00353)
          ,((B,D), 8.13)
          ,((C,A), 200)
          ,((C,B), 180.559)
          ,((C,D), 10.339)
          ,((D,A), 2.11)
          ,((D,B), 0.089)
          ,((D,C), 0.06111)]
moreComplex :: Exchange
moreComplex = Exchange (Map.fromList d)
    where
      d = [((A,B), 3.1)
          ,((A,C), 0.0023)
          ,((A,D), 0.35)
          ,((B,A), 0.21)
          ,((B,C), 0.00353)
          ,((B,D), 8.13)
          ,((C,A), 200)
          ,((C,B), 180.559)
          ,((C,D), 10.339)
          ,((D,A), 2.11)
          ,((D,B), 0.089)
          ,((D,C), 0.06111)]
moreComplex = Exchange (Map.fromList d)
    where
      d = [((A,B), 3.1)
          ,((A,C), 0.0023)
          ,((A,D), 0.35)
          ,((B,A), 0.21)
          ,((B,C), 0.00353)
          ,((B,D), 8.13)
          ,((C,A), 200)
          ,((C,B), 180.559)
          ,((C,D), 10.339)
          ,((D,A), 2.11)
          ,((D,B), 0.089)
          ,((D,C), 0.06111)]