Dear Haskellers,
 
         why this program is not accepted by Hugs?
 
equal a a = True
equal a b | not(a==b) = False
 
Best,
 
Manher