Otra versión de la función para calcular el factorial de un natural usando la función product del módulo Data.List: