Having Fun - Prolog