some haskell code to calculate the rabbit sequence