diff --git a/shinu.lisp b/shinu.lisp
index 828e91d..82d368a 100755
--- a/shinu.lisp
+++ b/shinu.lisp
@@ -31,7 +31,7 @@
       (let ((snk (snek*))
             (va (list 0 0))
             (vb (list 0 0))
-            (p1 (list (random 100) i))
+            (p1 (list (+ 5 (random 95)) i))
             (p2 (list (random (- *size* 100)) i)))
 
         (loop for k from 1 to itt do