anchor.diff:  ;; - Hardest Mode: 50 pieces per second
   (defparameter *snake-speed* 15)
   ;; Starting number of snake pieces
  -(defparameter *snake-init-num-pieces* 10)
  +(defparameter *snake-init-num-pieces* 2)
   ;; Update interval: speed-related.
   ;; Calculated before each frame.
   (defparameter *snake-update-interval* 0)
  
positive.code:   (format t "===SNAKE GAME===~%")
    (setf *frame-count* 0)
    (setf *last-fps-message-time* (sdl2:get-ticks))
  
    ;; Init snake
    (init-snake *snake*))
  
negative.code:     (set-append (make-vec2 :x (vec2-x *fruit-position*)
  			   :y (vec2-y *fruit-position*))
  		(fruit-list thesnake))
      ;; Reset fruit position
      (loop do
  	 (setf *fruit-position*
  	       (make-vec2 :x (float (* (+ (random (- (/ *window-width* *snake-piece-size*) 1)) 1)
  				*snake-piece-size*))
  		          :y (float (* (+ (random (- (/ *window-height* *snake-piece-size*) 1)) 1)
  				*snake-piece-size*))))
         while (is-overlapping-snake *fruit-position* thesnake)))
    
    ;; Grow after eating
    ;; Tail's last piece is always the first on our piece-list
  