clojureInActionXmlSchema.txt

## From the book Clojure in Action


### A small program written in our fictitious XML-based language


<program>
  <function name=addToStock>
    <param name=counter></param>
   <callFunction name=increment>
     <argument value=counter></argument>
    </callFunction>
 </function>
 <function name=removeFromStock>
    <param name=item></param>
   <callFunction name=decrementFromStockFile>
     <argument value=item></argument>
    </callFunction>
  </function>
</program>

to

<function name=addToStock>
    <param name=counter></>
    <callFunction name=increment>
      <argument value=counter></>
    </>
</>
  <function name=removeFromStock>
    <param name=item></>
    <callFunction name=decrementFromStockFile>
      <argument value=item></>
    </>
</>

to

<function name=addToStock
    <param name=counter >
    <callFunction name=increment
      <argument value=counter >
    >
>
  <function name=removeFromStock
    <param name=item >
    <callFunction name=decrementFromStockFile
      <argument value=item >
    >
>

to

 <define < addToStock counter >
    <increment counter > >
    <define < removeFromStock item >
        <decrementFromStockFile item > >


to

(define (addToStock counter)
     (increment counter))
  (define (removeFromStock item)
        (decrementFromStockFile item))

Scheme :)