content: averageMarks :: [Int] -> Double
  averageMarks [] = 0
  averageMarks marks = fromIntegral (sum marks) / fromIntegral (length marks)
  
  displayStudentAverages :: [(String, Int, [Int])] -> IO ()
  displayStudentAverages [] = return ()
  displayStudentAverages ((name, _, marks):rest) = do
      let avg = averageMarks marks
      putStrLn (name ++ ": " ++ show avg)
      displayStudentAverages rest
  
  main :: IO ()
  main = displayStudentAverages [("SOWMYA",14,[67,99,98]),
                                 ("DHARSHINI",46,[78,67,89]),
                                 ("HARSHITHA",51,[89,98,78])]
  
  