Implementación en Haskell de las ecuaciones de Rothermel del programa BEHAVE