M cirulla.pant => cirulla.pant +9 -4
@@ 113,13 113,18 @@ value c = case (rank c) ...
"king" => 10,
_ => rank c.
-match p c k -> capture p c and capture p k.
+match p c k -> do
+ capture p c;
+ capture p k.
add_to p c ks or
-make_15 p c ks
- -> capture p c and all k: Card, k in ks ... capture p k.
+make_15 p c ks -> do
+ capture p c;
+ all k: Card, k in ks ... capture p k.
-ace_scopa p c -> capture p c and all k: Card, k in table ... capture p k.
+ace_scopa p c -> do
+ capture p c;
+ all k: Card, k in table ... capture p k.
// Players add to the table by discarding, and take from the table by
// capturing.
M site/games/cirulla.html => site/games/cirulla.html +9 -4
@@ 196,13 196,18 @@ value c = case (rank c) …<br>
 "king" ⇒ 10,<br>
 _ ⇒ rank c.<br>
<br>
-match p c k → capture p c and capture p k.<br>
+match p c k → do<br>
+ capture p c;<br>
+ capture p k.<br>
<br>
add-to p c ks or<br>
-make-15 p c ks<br>
- → capture p c and ∀ k: Card, k in ks … capture p k.<br>
+make-15 p c ks → do<br>
+ capture p c;<br>
+ ∀ k: Card, k in ks … capture p k.<br>
<br>
-ace-scopa p c → capture p c and ∀ k: Card, k in table … capture p k.<br>
+ace-scopa p c → do<br>
+ capture p c;<br>
+ ∀ k: Card, k in table … capture p k.<br>
<br>
<blockquote>
<p>Players add to the table by discarding, and take from the table by