Farm pl rules.

farmpl.scm

@@ -1 +1,16 @@
+`(((jan1 money ?p ,(lambda (p) 'pay-10%)))
+  ((jan2 draw ?p otb))
+  ((jan3 money ?p ,(pays 500)) (?p cows))
+  ((jan4 add-rule ?p ((?p hay harvest-mult 2) (?p hay))))
+  ((jan4 on-year-end ?p (?p hay harvest-mult 1)))
+  ((jun1 harvest ?p hay) (?p hay))
+  ((jun1 harvest-mult ?p 0.5) (?p hay))
 
+  ((?date harvest-mult ?p ?val) (?date harvest ?p ?crop) (?p ?crop harvest-mult ?val))
+
+  ((tom cows))
+  ((tom wheat harvest-mult 0.5))
+  ((tom hay))
+  ((tom hay harvest-mult 2)))
+
+'((jun1 ?action tom ?value))