Money wanted

[tomw@tsys.demon.co.uk (Tom Wheeley)]

On Monday, in article <32C84480.62CE@netright.com>
     david_nospam@netright.com "David Hanley" wrote:

> fun earnings() = UsefulSkills;
> fun getMoney(x,needed) = if x < needed 
>                             then getMoney( x + earnings() , needed ) 
>                             else x;

(define won-lottery? #f)
(define find-job? #f
(define bank-balance 0)
(define (discover x) x)

(define (buy item)
    (if (eq? item 'lottery-ticket)
        (sequence
            (set! bank-balance (- bank-balance 1))
            'one-pound-please-sir
        )
        'not-in-stock-sir
    )
)

(define (make-money)
    (buy 'lottery-ticket)
    (if won-lottery?
        10000000
        (sequence
            (learn new-skill)
            (if (find-job?)
                (sequence
                    (set! bank-balance (+ bank-balance 10))
                    'youre-fired)
                )
                (sign-on dole)
            )
            (discover 'new-skill-worthless)
            (make-money)
        )
    )
)

:sb)   please send mail to <tw104@york.ac.uk>   http://www.york.ac.uk/~tw104/
--
First, the church was powerful. But it became corrupt and was overthrown.
Then monarchs became powerful. But they became corrupt and were overthrown. 
Now businesses are powerful. So what do we do with Bill Gates?
[ncohen@netcom.com]