#!/usr/local/bin/sbcl --script
(defun spawn(x)
#'(lambda (request)
(cond ((= 1 request) (setq x (+ x 1)))
((= 2 request) (setq x (- x 1)))
(t x))))