Haskell factorial done