[Haskell] Исправить формулу

[tatarinov]

Вот осваиваю для себя новый язык программирования:
Есть формула (Во вложении) и кусок кода:

PHP код:

--Вычисление факториала
fac :: Int -> Int
fac n | n==0 = 1
      | n>0  = n * fac (n-1)

--Функция вычисления xn
power :: Float -> Int -> Float
power x n | n==0 = 1
          | n>0  = x*power x (n-1)

--Функция вычисления (-1)n
signnum :: Int -> Float
signnum n | n `mod` 2 == 0 = 1
          | otherwise  = (-1)

--Функция вычисления суммы ряда
s :: Float -> Int -> Float
s x n | n==1 = (-1) * x *x * 2
      | n>1  =  (-s * n)*x * x *(4* (n * n)-1)/(4 * power((n+1) 2)-1) + s x (n-1) --(((power x 3) / 3) - ((power x 5) /15) + signnum(n+1) * ((power x (2 * n + 1)/(4 * n * n - 1)) + s x (n-1))
                     --where n2=2*n

--Проверочная функция
y :: Float -> Float
y x =   ((1 + x * x)/2) * atan (x) * (x / 2)

--------------------------------------
--Примеры функций преобразованием типов данных
f2i :: Float -> Integer
f2i f = round (f)       -- преобразование Float -> Int

i2f :: Int -> Float
i2f n = fromIntegral (n) -- преобразование Int -> Float

--Основная программа
main :: IO ()
main = do
             putStrLn "Hello!  What is x?"
             x <- getLine
             let sum = s (read x) 12
             putStrLn $ "Summa =" ++ (show sum)
             let con = y (read x)
             putStrLn $ "Y     =" ++ (show con) 


Как правильно ее запилить в хаскелЬ?