ourincrement(X,NewX):-
	NewX is X+1.

squish(H,T,[H|T]).

tastybeverage(hotchocolate).
tastybeverage(purpledrink).
tastybeverage(midori).
nastybeverage(molsen).
nastybeverage(pepsi).
nastybeverage(cheesewhiz).

predictmood(Beverage,happy):-
	tastybeverage(Beverage).

predictmood(Beverage,crappy):-
	nastybeverage(Beverage).