[Haskell] How to substract a list?