Cuando la llamo con una lista no vacia me devuelve -4, ya hice la prueba de escritorio y pareciera funcionar bien pero no.

nElem :: [Int] -> Int -> Int
nElem [] _ = -1
nElem (x:xs) n | n == 0 = x
               | n /= 0 = nElem xs n-1