<font color='black' size='2' face='arial'><br>

<div style="padding-top: 10px; padding-right: 10px; padding-bottom: 10px; padding-left: 10px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; background-color: transparent; font-family: arial; font-size: 10pt; color: black; ">
<div>
<div><span class="Apple-style-span" style="font-size: small; "><span class="Apple-style-span" style="font-size: small; ">Hello I have a program consists of two tasks. My first task works fine. In second task I have to create a new chip as soon as the new card has been created.</span>
<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">I am giving you sample run for the idea</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">
<div>==&gt; (define c1 (a-chip))</div>

<div>c1</div>

<div>==&gt; (contents c1)</div>

<div>0</div>

<div>==&gt; (charge c1 10.00)</div>

<div>done</div>

<div>==&gt; (contents c1)</div>

<div>10.0</div>

<div>==&gt; (discharge c1 9.34)</div>

<div>9.34</div>

<div>==&gt; (contents c1)</div>

<div>0.66</div>

<div>==&gt; (discharge c1 0.67)</div>

<div>no</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div>
<div><br>
</div>

<div>==&gt; (define alan (a-card 432776 1904))</div>

<div>alan</div>

<div>==&gt; (define bill (a-card 1 95))</div>

<div>bill</div>

<div>==&gt; (inserted bill 96)</div>

<div>no</div>

<div>==&gt; (contents bill) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// HAVING PROBLEM IN THIS</div>

<div>ERROR: Not inserted</div>

<div>==&gt; (inserted bill 95)</div>

<div>done</div>

<div>==&gt; (contents bill)<span class="Apple-tab-span" style="white-space: pre; ">                     </span>//PROBLEM IN THIS</div>

<div>0</div>

<div>==&gt; (free bill)</div>

<div>done</div>

<div>==&gt; (new-pin bill 96)</div>

<div>no</div>

<div>==&gt; (inserted bill 95)</div>

<div>done</div>

<div>==&gt; (new-pin bill 96)</div>

<div>done</div>

<div>==&gt; (account-number bill)</div>

<div>1</div>

<div>==&gt; (free bill)</div>

<div>done</div>

<div>==&gt; (account-number bill)</div>

<div>1</div>
</div>

<div><br>
</div>

<div>I AM NOT ABLE TO WORK OUT CONTENTS IN TASK 2..</div>

<div>I have already created contents in task 1. Do I have to create it again.</div>

<div><br>
</div>

<div>let me&nbsp;summarise my problem-&nbsp;</div>

<div>when I write (contents card) it has to work all the three procedures defined in task one contents, charge and discharge.</div>

<div>I have given some efforts but don't worth it.</div>

<div><br>
</div>

<div>Any help will be appreciated</div>

<div>thanks</div>

<div><br>
</div>
</span>
<div><span class="Apple-style-span" style="font-size: small; ">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TASK 1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">(define (a-chip)</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp;(let ( (balance 0) )</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp;(define (the-chip op)</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">    </span></span><span class="Apple-style-span" style="font-size: small; ">(sequence</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;(cond ((eq? op 'contents) &nbsp; &nbsp; (lambda () balance))</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;((eq? op 'charge) &nbsp; &nbsp; &nbsp; &nbsp; charge)</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;((eq? op 'discharge) &nbsp; &nbsp; &nbsp;discharge)</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(else (error "chip: unknown operation" op))</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;)</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">    </span></span><span class="Apple-style-span" style="font-size: small; ">'nononon)</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp;)</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp;(define (charge amount)</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;(set! balance amount)</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">        </span></span><span class="Apple-style-span" style="font-size: small; ">'done</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">        </span></span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">        </span></span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp;)</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp;(define (discharge amount)</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp; &nbsp; (if (&gt; (- balance amount) 0)</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">        </span></span><span class="Apple-style-span" style="font-size: small; ">( sequence (set! balance (- balance amount))</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">                </span></span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">            </span></span><span class="Apple-style-span" style="font-size: small; ">amount)</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;</span><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">       </span></span><span class="Apple-style-span" style="font-size: small; ">'no</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">        </span></span><span class="Apple-style-span" style="font-size: small; ">)</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp;)</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp; &nbsp;the-chip</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">&nbsp;&nbsp;)</span></div>

<div><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">    </span></span><span class="Apple-style-span" style="font-size: small; ">"mjuu"</span><span class="Apple-tab-span" style="white-space: pre; "><span class="Apple-style-span" style="font-size: small; ">      </span></span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">)</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">(define (charge chip amount) &nbsp; &nbsp;((chip 'charge) amount))</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">(define (discharge chip amount) ((chip 'discharge) amount))</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">(define (contents chip) ((chip 'contents) ))</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; "><br>
</span></div>

<div><span class="Apple-style-span" style="font-size: small; ">
<div>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TASK 2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</div>

<div><br>
</div>

<div><br>
</div>

<div>(define (a-card account tpin)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>( let ( (chip #f))</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>&nbsp;&nbsp; (define (the-card request)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>(cond ((eq? request 'inserted)<span class="Apple-tab-span" style="white-space: pre; ">      </span>inserted)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>&nbsp;&nbsp; &nbsp; &nbsp;((eq? request 'free)<span class="Apple-tab-span" style="white-space: pre; ">      </span>&nbsp;&nbsp;free)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>&nbsp;&nbsp; &nbsp; &nbsp;((eq? request 'new-pin)<span class="Apple-tab-span" style="white-space: pre; ">       </span>new-pin)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>&nbsp;&nbsp; &nbsp; &nbsp;((eq? request 'account)<span class="Apple-tab-span" style="white-space: pre; ">   </span>( lambda () account))</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span><span class="Apple-tab-span" style="white-space: pre; ">        </span>&nbsp;&nbsp; &nbsp; &nbsp;(else (error "card: unknown operation" request))</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>)</div>

<div>)</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div>(define (inserted pin )</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>(if (= pin tpin)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>(sequence (set! chip #t)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span></div>

<div><span class="Apple-tab-span" style="white-space: pre; ">                </span>)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span></div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span></div>

<div><span class="Apple-tab-span" style="white-space: pre; ">            </span>'done)<span class="Apple-tab-span" style="white-space: pre; ">      </span></div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>'no))</div>

<div><br>
</div>

<div>(define (free)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>(sequence (set! chip #f)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>'done)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>)</div>

<div><br>
</div>

<div><br>
</div>

<div>(define (new-pin new)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>(if (eq? #t chip )</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>(sequence (set! tpin new )</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">            </span>'done)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span>'no)</div>

<div>)</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">        </span></div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span></div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><br>
</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>the-card</div>

<div><span class="Apple-tab-span" style="white-space: pre; ">    </span>)</div>

<div>&nbsp;&nbsp; )</div>

<div><br>
</div>

<div><br>
</div>

<div>(define (contents card)<span class="Apple-tab-span" style="white-space: pre; ">         </span>((card 'contents)))</div>

<div>(define (pupu card)<span class="Apple-tab-span" style="white-space: pre; ">         </span>((card 'pupu)))</div>

<div>(define (inserted card pin)<span class="Apple-tab-span" style="white-space: pre; ">     </span>((card 'inserted ) pin))</div>

<div>(define (free card)<span class="Apple-tab-span" style="white-space: pre; ">         </span>((card 'free)))</div>

<div>(define (new-pin card new)<span class="Apple-tab-span" style="white-space: pre; ">      </span>((card 'new-pin) new))</div>

<div>(define (account-number card)<span class="Apple-tab-span" style="white-space: pre; ">       </span>((card 'account)))</div>

<div><br>
</div>
</span></div>
</div>
</span></div>
</div>
</div>

<div style="clear:both"></div>
</font>