add plural defun predicate

1 files changed, 10 insertions, 2 deletions

diff --git a/README.md b/README.md
index 7f3492f..decd7b5 100644
--- a/README.md
+++ b/README.md
@@ -187,11 +187,19 @@ otherwise `f`:
     (singul t)                ; t
     (singul '(a b))           ; f
 
-`(zerop x)` returns `t` if `x` is the number zero, otherwise `f`:
+`(zerop x)` returns `t` if `x` is the number positive zero, otherwise `f`:
 
     (zerop +0)                ; t
     (zerop +1)                ; f
-    (zerop t)                 ; error: t is not a number
+    (zerop -0)                ; f
+    (zerop 'a)                ; f
+
+`(plural x)` returns `t` if `x` is not the number positive zero, otherwise `f`:
+
+    (plural +0)               ; f
+    (plural +1)               ; t
+    (plural -0)               ; t
+    (plural 'a)               ; t
 
 ### Logical operations