$Any := (Points >= 0);
$ntop := (shape [4,3,3,3] OR [4,4,3,2] OR [5,3,3,2]);
$.1n. := (14 TO 16 Points) AND ($ntop);
$.2n. := (20 TO 22 Points) AND ($ntop);
$notBalanced :=  NOT ($ntop);
$openingHand := (12 TO 16 Points);
$.1s. := $openingHand AND (Spades > 4) AND NOT $.1n.;
$.1h. := $openingHand AND (Hearts > 4) AND NOT $.1n.;
$.2C. := $openingHand AND (Clubs > 4) AND ((Hearts ?= 4) OR (Spades ?= 4) OR (Clubs > 5));
$.1D. := $openingHand AND NOT ($.1n. OR $.1s. OR $.1h. OR $.2C.);
$.1C. := (Points > 16) AND NOT $.2n.;
$.P. := (Points < 12);
end
