(define spot-nudge-right
  (lambda (spot)
    (spot-new (+ (spot-col spot) 1) (spot-row spot) (spot-color spot))))