Haskell second version factorial done