Haskell day2 pre-hw
Middle of hw for day2 of haskell, pretty frustrated with Fractional type checking.