isTrue :: Int -> Bool isTrue number | number > 0= False | otherwise= True
nthElementIs :: [a] -> Int -> a nthElementIs list number = case (list) of [] -> case (number) of 0 -> [] otherwise -> error"okh" (x:[]) -> case (number) of 1 -> x otherwise -> error"z" (x:xs) -> case (number) of isTrue -> error"df" otherwise -> nthElementIs xs (number - 1)