data Student  =  Student String



class Chesistufano a where
    uffa :: a -> String

     
istance Chesistufano Student where
    uffa s = "il professore ce le ha trifolate"