5.2 The following relation classifies numbers into three classes: positive, zero and negative: class( Number, positive) :- Number > 0. class(0, zero). class( Number, negative) :- Number < 0. Define this procedure in a more efficient way using cuts.