Add a simple LambdaMan program that moves 10 squares
user
```common lisp
(defun function1 (state environment)
  (if (>= state 40)
    (cons 0 0)
    (cons (+ 1 state) (/ state 10))))

(cons 0 function1)
```
assistant