-- |The first and second examples given in the assignment pdf. This should return True.
example1and2 :: Bool
example1and2 = 
  let fstNum     = first 1
      growthRate = grow fstNum 5062.5
      ss         = series fstNum growthRate
      ssRounded  = seriesN fstNum growthRate 5
  in fstNum ~== 1.62 && growthRate ~== 2.5 &&
     take 5 ss ~== [1.62, 4.05, 6.561, 10.62882, 17.2186884] &&
     ssRounded ~== [1.5, 4, 6.5, 10.75, 17.25] &&
     special1 ssRounded ~== Right 6.5 &&
     special2 1000 160 ssRounded ~== Right 6.5
example1and2 :: Bool
example1and2 = 
  let fstNum     = first 1
      growthRate = grow fstNum 5062.5
      ss         = series fstNum growthRate
      ssRounded  = seriesN fstNum growthRate 5
  in fstNum ~== 1.62 && growthRate ~== 2.5 &&
     take 5 ss ~== [1.62, 4.05, 6.561, 10.62882, 17.2186884] &&
     ssRounded ~== [1.5, 4, 6.5, 10.75, 17.25] &&
     special1 ssRounded ~== Right 6.5 &&
     special2 1000 160 ssRounded ~== Right 6.5
example1and2 = 
  let fstNum     = first 1
      growthRate = grow fstNum 5062.5
      ss         = series fstNum growthRate
      ssRounded  = seriesN fstNum growthRate 5
  in fstNum ~== 1.62 && growthRate ~== 2.5 &&
     take 5 ss ~== [1.62, 4.05, 6.561, 10.62882, 17.2186884] &&
     ssRounded ~== [1.5, 4, 6.5, 10.75, 17.25] &&
     special1 ssRounded ~== Right 6.5 &&
     special2 1000 160 ssRounded ~== Right 6.5