<html><head><meta http-equiv="Content-Type" content="text/html charset=windows-1252"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div>Would this work for what you want?</div><div><br></div><div>If med.rkt contains this:</div><div><div><font face="Courier New">#lang racket</font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">(provide (all-defined-out)</font></div><div><font face="Courier New"> #%datum #%top</font></div><div><font face="Courier New"> (rename-out [new-module-begin #%module-begin]))</font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">(define-syntax-rule</font></div><div><font face="Courier New"> (new-module-begin med-thing ...)</font></div><div><font face="Courier New"> (#%module-begin (display (~a med-thing ... #:separator " "))))</font></div><div><font face="Courier New"><br></font></div><div><font face="Courier New">(define hctz25 "Hydrochlorothiazide 25mg")</font></div><div><font face="Courier New">(define simva20 "Simvastatin 20mg")</font></div><div><font face="Courier New">(define pl "pills")</font></div><div><font face="Courier New">(define 1xd "Take 1 pill P.O. 1x/day")</font></div><div><font face="Courier New">(define 1xn "Take 1 pill P.O. 1x at night")</font></div><div><font face="Courier New">(define INSTOMZ "half an hour before breakfast, with a glass of water")</font></div><div><font face="Courier New">(define line "-----------")</font></div></div><div><br></div><div>And try-it.rkt contains this:</div><div><div><font face="Courier New">#lang s-exp "med.rkt"</font></div><div><font face="Courier New">hctz25 30 pl 1xd</font></div><div><font face="Courier New">simva20 30 pl 1xn</font></div></div><div><br></div><div>Then running try-it.rkt will produce the output:</div><div><font face="Courier New">Hydrochlorothiazide 25mg 30 pills Take 1 pill P.O. 1x/day Simvastatin 20mg 30 pills Take 1 pill P.O. 1x at night</font></div><div><br></div><div>Or if new-module-begin is defined like this instead:</div><div><div><font face="Courier New">(define-syntax-rule</font></div><div><font face="Courier New"> (new-module-begin med-thing ...)</font></div><div><font face="Courier New"> (#%module-begin (provide data) (define data (~a med-thing ... #:separator " "))))</font></div></div><div><br></div><div>Then doing (require “try-it.rkt”) will import data as the string <font face="Courier New">"Hydrochlorothiazide 25mg 30 pills Take 1 pill P.O. 1x/day Simvastatin 20mg 30 pills Take 1 pill P.O. 1x at night"</font>.</div><div><br></div><div><br></div><div><br></div></body></html>