intermediate 71 in haskell, nthonacci sequences