wrote the fibonnaci sequence in haskell