(define clicker
  (lambda (val . clicks)
    (cond
      ((null? clicks) val)
      ((eq? (car clicks) 'up) (clicker (+ val 1) (cdr clicks)))
      ((eq? (cdr clicks) 'down) (clicker (- val 1) (cdr clicks)))
      (else (error "Invalid operation")))))