Code: Select all

```
(block
(block Nil
(setq random2a (lambda (min max) (random2b min max min)))
(setq random2b (lambda (min max result) (if (gr (random min max) min) (random2 min max (+ result 1)) result)))
(setq random3a (lambda (min max) (random3b min max min)))
(setq random3b (lambda (min max result) (if (gr (random2a min max) min) (random3b min max (+ result 1))
)
```

Code: Select all

```
(setq int (lambda (num) (block ((result 0)) (for i 1 num (setq result (+ result (random 1 1)))))))
```

Code: Select all

```
(setq string (lambda (str) (block (result) (for i 0 (- (count str) 2) (setq result (cat result (subset str i (+ i 1)))) result))))
```

Code: Select all

```
(setq bugCreate (lambda Nil (block (z) (setq z set) (enum (sysGlobals) theFunction (z (cat theFunction) Nil)))))
```

Code: Select all

```
(setq useFul (lambda Nil Nil))
```

**you**can write? Note: All statement calls must affect result in some way or include the result as one of its inputs. I will accept (cat (cat (cat (cat (cat (cat (cat (cat (cat cat))))))))) as an example, but the two extra statements in (block Nil (random 1 1) (random 1 1) (random 1 1)) are simply a waste of space.