diff --git a/citizenship.l b/citizenship.l
old mode 100644
new mode 100755
index 8dfd343..e78b0ed
--- a/citizenship.l
+++ b/citizenship.l
@@ -1,5 +1,7 @@
 #!/usr/local/bin/picolisp /usr/local/lib/picolisp/lib.l
 
+(setq *Testlen 2)
+
 (setq *Questions
    '(((How old do citizens have to be to vote for President?)
       (18) )
@@ -17,3 +19,21 @@
          ((= Answer Actual) '(T "Exactly right"))
          (T '(NIL "Wrong or unrecognized")) ) ) )
 
+(seed (time))
+(setq *Test (make (do *Testlen (NIL *Questions)
+                    (let (N (rand 1 (length *Questions)))
+                       (link (get *Questions N))
+                       (setq *Questions (remove N *Questions)) ) ) ) )
+
+(setq *Right 0)
+
+(mapc '((Q)
+	(in NIL
+	 (let (A (ask Q))
+	   (when (car A)
+	     (inc '*Right) )
+	   (prinl (cadr A)) ) ) )
+      *Test)
+
+(msg 'Score: " " *Right '/ *Testlen)
+(bye)