first recursive function in haskell - factorial