I have to a data Student and a type Class:
data Student = Student {nome :: String , stdNumber :: Int , approve