<Brackets1>(</Brackets1><Other Brackets>[</Other Brackets><Brackets2>(</Brackets2><Other Brackets>[</Other Brackets><Brackets3>(</Brackets3><Other Brackets>[</Other Brackets><Brackets4>(</Brackets4><Other Brackets>[</Other Brackets><Brackets5>(</Brackets5><Brackets6>()</Brackets6><Brackets5>)</Brackets5><Other Brackets>]</Other Brackets><Brackets4>)</Brackets4><Other Brackets>]</Other Brackets><Brackets3>)</Brackets3><Other Brackets>]</Other Brackets><Brackets2>)</Brackets2><Other Brackets>]</Other Brackets><Brackets1>)</Brackets1><br/>
<Normal></Normal><br/>
<Comment>#lang racket/gui</Comment><br/>
<Normal></Normal><br/>
<Brackets1>(</Brackets1><Definition>define</Definition><Function> my-language </Function><Normal>'English</Normal><Brackets1>)</Brackets1><br/>
<Normal></Normal><br/>
<Brackets1>(</Brackets1><Definition>define</Definition><Function> translations</Function><br/>
<Normal>  #hash</Normal><Brackets2>(</Brackets2><Other Brackets>[</Other Brackets><Normal>English . </Normal><String>"Hello world"</String><Other Brackets>]</Other Brackets><br/>
<Normal>        </Normal><Other Brackets>[</Other Brackets><Normal>French . </Normal><String>"Bonjour le monde"</String><Other Brackets>]</Other Brackets><br/>
<Normal>        </Normal><Other Brackets>[</Other Brackets><Normal>German . </Normal><String>"Hallo Welt"</String><Other Brackets>]</Other Brackets><br/>
<Normal>        </Normal><Other Brackets>[</Other Brackets><Normal>Greek . </Normal><String>"Γειά σου, κόσμε"</String><Other Brackets>]</Other Brackets><br/>
<Normal>        </Normal><Other Brackets>[</Other Brackets><Normal>Portuguese . </Normal><String>"Olá mundo"</String><Other Brackets>]</Other Brackets><br/>
<Normal>        </Normal><Other Brackets>[</Other Brackets><Normal>Spanish . </Normal><String>"Hola mundo"</String><Other Brackets>]</Other Brackets><br/>
<Normal>        </Normal><Other Brackets>[</Other Brackets><Normal>Thai . </Normal><String>"สวัสดีชาวโลก"</String><Other Brackets>]</Other Brackets><Brackets2>)</Brackets2><Brackets1>)</Brackets1><br/>
<Normal></Normal><br/>
<Brackets1>(</Brackets1><Definition>define</Definition><Function> my-hello-world</Function><br/>
<Normal>  </Normal><Brackets2>(</Brackets2><Normal>hash-ref translations my-language</Normal><br/>
<Normal>            </Normal><String>"hello world"</String><Brackets2>)</Brackets2><Brackets1>)</Brackets1><br/>
<Normal></Normal><br/>
<Brackets1>(</Brackets1><Normal>message-box </Normal><String>""</String><Normal> my-hello-world</Normal><Brackets1>)</Brackets1><br/>
<Normal></Normal><br/>
<Comment>; Organizing interconnected function definitions with local</Comment><br/>
<Comment>; [List-of Number] [Number Number -> Boolean]</Comment><br/>
<Comment>; -> [List-of Number]</Comment><br/>
<Comment>; produces a version of alon0, sorted according to cmp</Comment><br/>
<Brackets1>(</Brackets1><Definition>define</Definition><Function> </Function><Brackets2>(</Brackets2><Normal>sort-cmp alon0 cmp</Normal><Brackets2>)</Brackets2><br/>
<Normal>  </Normal><Brackets2>(</Brackets2><Normal>local </Normal><Brackets3>(</Brackets3><Comment>; [List-of Number] -> [List-of Number]</Comment><br/>
<Normal>          </Normal><Comment>; produces the sorted version of alon</Comment><br/>
<Normal>          </Normal><Brackets4>(</Brackets4><Definition>define</Definition><Function> </Function><Brackets5>(</Brackets5><Normal>isort alon</Normal><Brackets5>)</Brackets5><br/>
<Normal>            </Normal><Brackets5>(</Brackets5><Keyword>cond</Keyword><br/>
<Normal>              </Normal><Other Brackets>[</Other Brackets><Brackets6>(</Brackets6><Normal>empty? alon</Normal><Brackets6>)</Brackets6><Normal> </Normal><Brackets6>'()</Brackets6><Other Brackets>]</Other Brackets><br/>
<Normal>              </Normal><Other Brackets>[</Other Brackets><Keyword>else</Keyword><br/>
<Normal>               </Normal><Brackets6>(</Brackets6><Normal>insert </Normal><Brackets1>(</Brackets1><Normal>first alon</Normal><Brackets1>)</Brackets1><Normal> </Normal><Brackets1>(</Brackets1><Normal>isort </Normal><Brackets2>(</Brackets2><Normal>rest alon</Normal><Brackets2>)</Brackets2><Brackets1>)</Brackets1><Brackets6>)</Brackets6><Other Brackets>]</Other Brackets><Brackets5>)</Brackets5><Brackets4>)</Brackets4><br/>
<Normal></Normal><br/>
<Normal>          </Normal><Comment>; Number [List-of Number] -> [List-of Number]</Comment><br/>
<Normal>          </Normal><Comment>; inserts n into the sorted list of numbers alon</Comment><br/>
<Normal>          </Normal><Brackets4>(</Brackets4><Definition>define</Definition><Function> </Function><Brackets5>(</Brackets5><Normal>insert n alon</Normal><Brackets5>)</Brackets5><br/>
<Normal>            </Normal><Brackets5>(</Brackets5><Keyword>cond</Keyword><br/>
<Normal>              </Normal><Other Brackets>[</Other Brackets><Brackets6>(</Brackets6><Normal>empty? alon</Normal><Brackets6>)</Brackets6><Normal> </Normal><Brackets6>(</Brackets6><Keyword>cons</Keyword><Normal> n </Normal><Brackets1>'()</Brackets1><Brackets6>)</Brackets6><Other Brackets>]</Other Brackets><br/>
<Normal>              </Normal><Other Brackets>[</Other Brackets><Keyword>else</Keyword><Normal> </Normal><Brackets6>(</Brackets6><Keyword>if</Keyword><Normal> </Normal><Brackets1>(</Brackets1><Normal>cmp n </Normal><Brackets2>(</Brackets2><Normal>first alon</Normal><Brackets2>)</Brackets2><Brackets1>)</Brackets1><br/>
<Normal>                        </Normal><Brackets1>(</Brackets1><Keyword>cons</Keyword><Normal> n alon</Normal><Brackets1>)</Brackets1><br/>
<Normal>                        </Normal><Brackets1>(</Brackets1><Keyword>cons</Keyword><Normal> </Normal><Brackets2>(</Brackets2><Normal>first alon</Normal><Brackets2>)</Brackets2><br/>
<Normal>                              </Normal><Brackets2>(</Brackets2><Normal>insert n </Normal><Brackets3>(</Brackets3><Normal>rest alon</Normal><Brackets3>)</Brackets3><Brackets2>)</Brackets2><Brackets1>)</Brackets1><Brackets6>)</Brackets6><Other Brackets>]</Other Brackets><Brackets5>)</Brackets5><Brackets4>)</Brackets4><Brackets3>)</Brackets3><br/>
<Normal>    </Normal><Brackets3>(</Brackets3><Normal>isort alon0</Normal><Brackets3>)</Brackets3><Brackets2>)</Brackets2><Brackets1>)</Brackets1><br/>
<Normal></Normal><br/>
