:-style_check(-singleton).
:-dynamic(conesnum/1).

% ice-cream cones, calculating all the possible combinations of scoops.
scoop(vanilla). scoop(strawberry). scoop(chocolate).

cone(A,B,C):-scoop(A), scoop(B), scoop(C).

conesnum(0).

%%write your own code for count

go:-cone(X,Y,Z), count,fail; conesnum(Number), write(number_cones(Number)).