<br><font size=2 face="sans-serif">I'm sure I'm not the first to build
a shortcut to make calls to cl-ppcre a bit clearer. I wrote the function
re-place() ... note how much clearer crude-hacks2 is compared to crude-hacks</font>
<br>
<br><font size=2 face="sans-serif">(defun crude-hacks (s)</font>
<br><font size=2 face="sans-serif">  "crude hacks :)"</font>
<br><font size=2 face="sans-serif">  (cl-ppcre:regex-replace</font>
<br><font size=2 face="sans-serif">   "head\\s*office"</font>
<br><font size=2 face="sans-serif">   (cl-ppcre:regex-replace
</font>
<br><font size=2 face="sans-serif">    "due\\s*from"</font>
<br><font size=2 face="sans-serif">    (cl-ppcre:regex-replace
</font>
<br><font size=2 face="sans-serif">     "hapoalim\\s*branch"
</font>
<br><font size=2 face="sans-serif">     s </font>
<br><font size=2 face="sans-serif">     "hapoalim bank")</font>
<br><font size=2 face="sans-serif">    " ")</font>
<br><font size=2 face="sans-serif">   " ")</font>
<br><font size=2 face="sans-serif">  )</font>
<br>
<br><font size=2 face="sans-serif">(defun re-replace (s replace-list)</font>
<br><font size=2 face="sans-serif">  "input-string replace-list
=> output-string"</font>
<br><font size=2 face="sans-serif">  (if (null replace-list)</font>
<br><font size=2 face="sans-serif">      s</font>
<br><font size=2 face="sans-serif">      (let* ((replace-expr
(car replace-list))</font>
<br><font size=2 face="sans-serif">         
   (match (car replace-expr))</font>
<br><font size=2 face="sans-serif">         
   (replace (cadr replace-expr))</font>
<br><font size=2 face="sans-serif">         
   )</font>
<br><font size=2 face="sans-serif">        (cl-ppcre:regex-replace
match </font>
<br><font size=2 face="sans-serif">         
             (re-replace s (cdr
replace-list))</font>
<br><font size=2 face="sans-serif">         
             replace))))</font>
<br>
<br><font size=2 face="sans-serif">(defun crude-hacks2 (s)</font>
<br><font size=2 face="sans-serif">  (re-replace s</font>
<br><font size=2 face="sans-serif">         
    '(</font>
<br><font size=2 face="sans-serif">         
      ("head\\s*office"    
 " ")</font>
<br><font size=2 face="sans-serif">         
      ("due\\s*from"      
  " ")</font>
<br><font size=2 face="sans-serif">         
      ("hapoalim\\s*branch"  "hapoalim
bank")</font>
<br><font size=2 face="sans-serif">         
    )))</font>
<br>
<br>
<br>
<br><font size=2 face="sans-serif">--<br>
Terrence Brannon - SID W049945<br>
614-213-2475 (office)<br>
614-213-3426 (fax)<br>
818-359-0893 (cell)<br>
<br>
</font>
<P><hr size=1></P>
<P>
This communication is for informational purposes only. It is not intended as an offer or solicitation for the purchase or sale of any financial instrument or as an official confirmation of any transaction. All market prices, data and other information are not warranted as to completeness or accuracy and are subject to change without notice. Any comments or statements made herein do not necessarily reflect those of JPMorgan Chase & Co., its subsidiaries and affiliates.

This transmission may contain information that is privileged, confidential, legally privileged, and/or exempt from disclosure under applicable law. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or use of the information contained herein (including any reliance thereon) is STRICTLY PROHIBITED. Although this transmission and any attachments are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by JPMorgan Chase & Co., its subsidiaries and affiliates, as applicable, for any loss or damage arising in any way from its use. If you received this transmission in error, please immediately contact the sender and destroy the material in its entirety, whether in electronic or hard copy format. Thank you.

Please refer to http://www.jpmorgan.com/pages/disclosures for disclosures relating to UK legal entities.
</P>