Re: Re[2]: Examples?

"Magnus Therning" <[email protected]> Sun, 21 Sep 2008 10:28:59 +0100
Newsgroups gmane.comp.lang.haskell.template
Message-ID <[email protected]>
--===============1165529832==
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: base64
Content-Disposition: inline

T24gU3VuLCBTZXAgMjEsIDIwMDggYXQgMTA6MTMgQU0sIEJ1bGF0IFppZ2Fuc2hpbgo8YnVsYXQu
emlnYW5zaGluQGdtYWlsLmNvbT4gd3JvdGU6Cj4gSGVsbG8gTWFnbnVzLAo+Cj4gU3VuZGF5LCBT
ZXB0ZW1iZXIgMjEsIDIwMDgsIDE6MDI6MTYgUE0sIHlvdSB3cm90ZToKPgo+Pj4gZXhhbXBsZXMg
YXJlCj4+PiAxKSBzZXJpYWxpemF0aW9uIGF0IHRoZSBlbmQgb2YgVEggd2lraSBwYWdlCj4+PiAy
KSBzZXJpYWxpemF0aW9uIChhZ2FpbikgaW4gdGhlIFN0cmVhbXMgbGlicmFyeQo+PiBJIGFzc3Vt
ZSB0aGUgVEggd2lraSBwYWdlIGlzCj4+IGh0dHA6Ly93d3cuaGFza2VsbC5vcmcvaGFza2VsbHdp
a2kvVGVtcGxhdGVfSGFza2VsbCBidXQgSSBkb24ndCBzZWUKPgo+IGkgbWVhbiAxMC41IGFsdGhv
dWdoIGl0IGp1c3QgY291bnRzIGFtb3VudCBvZiBmaWVsZHMuCgpUaGF0IHBhcnRpY3VsYXIgZXhh
bXBsZSBpc24ndCBjb21wbGV0ZSBlbm91Z2ggZm9yIGEgYmVnaW5uZXIgbGlrZSBtZQp0byByZWFs
bHkgdW5kZXJzdGFuZCB3aGF0IGlzIGdvaW5nIG9uLiAgQWxzbyBJIHdhcyBob3BpbmcgdGhhdCB0
aGUKc3RhbmRhcmQgYHJlaWZ5YCBmcm9tIGBMYW5ndWFnZS5IYXNrZWxsLlRILlN5bnRheGAgY291
bGQgYmUgdXNlZC4KCgpPaCBJIGd1ZXNzIHRoZSBleGFtcGxlIGJlbG93IGlzbid0IGZyb20gRGF0
YS5MaXN0LlN0cmVhbSB3aGljaCBpcyB3aGF0CkkgcmFuIGludG8gd2hlbiBzZWFyY2hpbmcgZm9y
ICJoYXNrZWxsIHN0cmVhbXMiIGluIEdvb2dsZSA6LSkgIEl0Cmxvb2tzIGEgbG90IG1vcmUgY29t
cGxldGUgdGhvdWdoLCBidXQgSSdsbCBuZWVkIHRvIHNwZW5kIGEgYml0IG9mIHRpbWUKd2l0aCBp
dCB0byBncm9rIGl0IGVub3VnaCB0byBrbm93IGhvdyBpdCBwZXJmb3JtcyBpdHMgbWFnaWMuCgpU
aGFua3MhCgovTQoKCj4gRGF0YS5BbHRCaW5hcnkuVEggbW9kdWxlIGZyb20gU3RyZWFtczoKPgo+
IHstIyBPUFRJT05TX0dIQyAtZmdsYXNnb3ctZXh0cyAtZnRoICMtfQo+IHstIHwKPiAgIE1vZHVs
ZSAgICAgOiBEYXRhLkFsdEJpbmFyeS5USAo+ICAgQ29weXJpZ2h0ICA6IENvcHlyaWdodCAoQykg
MjAwNiBCdWxhdCBaaWdhbnNoaW4KPiAgIExpY2Vuc2UgICAgOiBCU0QzCj4KPiAgIE1haW50YWlu
ZXIgOiBCdWxhdCBaaWdhbnNoaW4gPEJ1bGF0LlppZ2Fuc2hpbkBnbWFpbC5jb20+Cj4gICBTdGFi
aWxpdHkgIDogZXhwZXJpbWVudGFsCj4gICBQb3J0YWJpbGl0eTogR0hDCj4KPiBCaW5hcnkgSS9P
IGFuZCBzZXJpYWxpemF0aW9uIGxpYnJhcnk6IGF1dG9tYXRpYyBkZXJpdmluZyBvZiBCaW5hcnkg
aW5zdGFuY2VzCj4gdXNpbmcgVGVtcGxhdGUgSGFza2VsbAo+Cj4gQmFzZWQgb24gdGhlOiBCaW5h
cnkgSS9PIGxpYnJhcnkgKGMpIFRoZSBVbml2ZXJzaXR5IG9mIEdsYXNnb3cgMjAwMgo+Cj4gQmFz
ZWQgb24gdGhlIG5oYzk4IEJpbmFyeSBsaWJyYXJ5LCB3aGljaCBpcyBjb3B5cmlnaHQKPiAoYykg
TWFsY29sbSBXYWxsYWNlIGFuZCBDb2xpbiBSdW5jaW1hbiwgVW5pdmVyc2l0eSBvZiBZb3JrLCAx
OTk4Lgo+IFVuZGVyIHRoZSB0ZXJtcyBvZiB0aGUgbGljZW5zZSBmb3IgdGhhdCBzb2Z0d2FyZSwg
d2UgbXVzdCB0ZWxsIHlvdQo+IHdoZXJlIHlvdSBjYW4gb2J0YWluIHRoZSBvcmlnaW5hbCB2ZXJz
aW9uIG9mIHRoZSBCaW5hcnkgbGlicmFyeSwgbmFtZWx5Cj4gICAgaHR0cDovL3d3dy5jcy55b3Jr
LmFjLnVrL2ZwL25oYzk4Lwo+Cj4gQWxzbyBiYXNlZCBvbiB0aGUgVEggc3VwcG9ydCBpbiBTZXJU
SCBsaWJyYXJ5IGJ5IEVpbmFyIEthcnR0dW5lbgo+Cj4gLX0KPgo+IG1vZHVsZSBEYXRhLkFsdEJp
bmFyeS5USCAoCj4gICAgZGVyaXZlQmluYXJ5ICAtLSBEZXJpdmUgYSBCaW5hcnkgaW5zdGFuY2Ug
Zm9yIHRoZSB0eXBlIHN1cHBsaWVkLgo+ICApIHdoZXJlCj4KPiBpbXBvcnQgTGFuZ3VhZ2UuSGFz
a2VsbC5USAo+IGltcG9ydCBMYW5ndWFnZS5IYXNrZWxsLlRILlN5bnRheAo+IGltcG9ydCBDb250
cm9sLk1vbmFkCj4KPiBpbXBvcnQgRGF0YS5BbHRCaW5hcnkuU3RyZWFtCj4gaW1wb3J0IERhdGEu
QWx0QmluYXJ5LkNsYXNzCj4gaW1wb3J0IERhdGEuQWx0QmluYXJ5LkN1c3RvbS5CYXNlIChiaXRz
TmVlZGVkKQo+Cj4gLS0gfCBEZXJpdmUgYSBCaW5hcnkgaW5zdGFuY2UgZm9yIHRoZSB0eXBlIHN1
cHBsaWVkLgo+IGRlcml2ZUJpbmFyeSA6OiBOYW1lIC0+IFEgW0RlY10KPiBkZXJpdmVCaW5hcnkg
dCA9IGRvCj4gICAgLS0gR2V0IGxpc3RzIG9mIHBhcmFtZXRlcnMgYW5kIGNvbnN0cnVjdG9ycyBm
b3IgdHlwZSB0Cj4gICAgKG9yaWdQYXJhbXMsIGNvbnN0cnVjdG9ycykgPC0gZ2V0UGFyYW1zQ29u
c3RydWN0b3JzIHQKPgo+ICAgIC0tIENyZWF0ZSBOIGZyZXNoIHR5cGUgdmFyaWFibGVzIHRvIHVz
ZSBpbiBpbnN0YW5jZSBkZWNsYXJhdGlvbgo+ICAgIC0tICAgd2hlcmUgTiBpcyBhIG51bWJlciBv
ZiBwYXJhbWV0ZXJzIGluIHRoaXMgdHlwZSBjb25zdHJ1Y3RvciwKPiAgICAtLSAgIGUuZy4gMCBm
b3IgSW50LCAxIGZvciBNYXliZSwgMiBmb3IgKCwpIC4uLgo+ICAgIHBhcmFtcyA8LSBtYXBNIChj
b25zdCQgbmV3TmFtZSAiYSIpIG9yaWdQYXJhbXMKPgo+ICAgIC0tIEhvdyBtYW55IGJpdHMgbmVl
ZGVkIHRvIGVuY29kZSBjb25zdHJ1Y3RvciBudW1iZXI/Cj4gICAgbGV0IGJpdHMgPSBiaXRzTmVl
ZGVkIDEgKGxlbmd0aCBjb25zdHJ1Y3RvcnMpCj4KPiAgICAtLSBHZW5lcmF0ZSBib2RpZXMgb2Yg
J3B1dF8nIGFuZCAnZ2V0JyBtZXRob2RzCj4gICAgcHV0X2JvZHkgPC0gbWFrZVB1dEJvZHkgYml0
cyBjb25zdHJ1Y3RvcnMKPiAgICBnZXRfYm9keSA8LSBtYWtlR2V0Qm9keSBiaXRzIGNvbnN0cnVj
dG9ycwo+Cj4gICAgLS0gR2VuZXJhdGUgQmluYXJ5IGluc3RhbmNlIGZvciB0eXBlIHQuIFNvbWV0
aGluZyBsaWtlIHRoaXM6Cj4gICAgLS0gICAgIGluc3RhbmNlIChCaW5hcnkgYSkgPT4gQmluYXJ5
ICgkdCBhKSB3aGVyZQo+ICAgIC0tICAgICAgIHB1dF8gPSAkcHV0X2JvZHkKPiAgICAtLSAgICAg
ICBnZXQgID0gJGdldF9ib2R5Cj4gICAgcmV0dXJuIFtJbnN0YW5jZUQgKG1hcCAoYXBwQmluYXJ5
LlZhclQpIHBhcmFtcykgICAtLSBpbnN0YW5jZSAoQmluYXJ5IGEpID0+Cj4gICAgICAgICAgICAg
ICAgICAgICAgKGFwcEJpbmFyeSQgYXBwVHlwZSB0IHBhcmFtcykgICAtLSAgICAgICAgICAgQmlu
YXJ5ICgkdCBhKQo+ICAgICAgICAgICAgICAgICAgICAgIFtGdW5EICdwdXRfIHB1dF9ib2R5LCAg
ICAgICAgICAgLS0gd2hlcmUgcHV0XyA9ICRwdXRfYm9keQo+ICAgICAgICAgICAgICAgICAgICAg
ICBGdW5EICdnZXQgW2dldF9ib2R5XV1dICAgICAgICAgLS0gICAgICAgZ2V0ICA9ICRnZXRfYm9k
eQo+Cj4KPiAtLSB8IEdlbmVyYXRlIGZyb20gbGlzdCBvZiB0eXBlIG5hbWVzIHJlc3VsdCBvZiB0
eXBlcyBhcHBsaWNhdGlvbjoKPiAtLSAgICAgYXBwVHlwZSBUIFthLGJdIC0+ICJUIGEgYiIKPiBh
cHBUeXBlIDo6IE5hbWUgLT4gW05hbWVdIC0+IFR5cGUKPiAtLWFwcFR5cGUgdCBbXSAgICAgID0g
Q29uVCB0ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIC0tIFQKPiAtLWFwcFR5
cGUgdCBbdDFdICAgID0gQXBwVCAoQ29uVCB0KSAoVmFyVCB0MSkgICAgICAgICAgICAgICAgICAg
IC0tIFQgYQo+IC0tYXBwVHlwZSB0IFt0MSx0Ml0gPSBBcHBUIChBcHBUIChDb25UIHQpIChWYXJU
IHQxKSkgKFZhclQgdDIpICAgLS0gVCBhIGIgPT0gKFQgYSkgYgo+IGFwcFR5cGUgdCB0cyAgPSAg
Zm9sZGwgKFxhIGUgLT4gQXBwVCBhIChWYXJUIGUpKSAoQ29uVCB0KSB0cyAgICAgLS0gZ2VuZXJh
bCBkZWZpbml0aW9uCj4KPiAtLSB8IEFwcGx5IGEgQmluYXJ5IHR5cGUgY29uc3RydWN0b3IgdG8g
Z2l2ZW4gdHlwZTogInQiIC0+ICJCaW5hcnkgdCIKPiBhcHBCaW5hcnkgOjogVHlwZSAtPiBUeXBl
Cj4gYXBwQmluYXJ5IHQgID0gIEFwcFQgKENvblQgJydCaW5hcnkpIHQKPgo+Cj4gLS0gfCBHZXQg
bGlzdHMgb2YgcGFyYW1ldGVycyBhbmQgY29uc3RydWN0b3JzIGZvciB0eXBlIHQKPiBnZXRQYXJh
bXNDb25zdHJ1Y3RvcnMgOjogTmFtZSAtPiBRIChbTmFtZV0sIFtDb25dKQo+IGdldFBhcmFtc0Nv
bnN0cnVjdG9ycyB0ID0gZG8KPiAgICBkZWNsYXJhdGlvbiA8LSByZWlmeSB0Cj4gICAgY2FzZSBk
ZWNsYXJhdGlvbiBvZgo+ICAgICAgICBUeUNvbkkgKERhdGFEICAgIF8gXyBwYXJhbXMgY29uc3Ry
dWN0b3JzIF8pIC0+IHJldHVybiAocGFyYW1zLCBjb25zdHJ1Y3RvcnMpCj4gICAgICAgIFR5Q29u
SSAoTmV3dHlwZUQgXyBfIHBhcmFtcyBjb25zdHJ1Y3RvciAgXykgLT4gcmV0dXJuIChwYXJhbXMs
IFtjb25zdHJ1Y3Rvcl0pCj4gICAgICAgIF8gLT4gZG8gbGV0IHR5cGVuYW1lID0gbmFtZUJhc2Ug
dAo+ICAgICAgICAgICAgICAgIHJlcG9ydCBUcnVlICgiZGVyaXZlQmluYXJ5ICcnIisrdHlwZW5h
bWUKPiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKysiOiBpbXBvc3NpYmxlLCBiZWNhdXNl
IGl0J3MgbmVpdGhlciIKPiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKysiIGRhdGEgbm9y
IG5ld3R5cGUgZGVjbGFyYXRpb24iKQo+ICAgICAgICAgICAgICAgIHJldHVybiAoW10sW10pCj4K
Pgo+IC0tIHwgTWFrZSBib2R5IGZvciBmdW5jdGlvbiBgcHV0X2A6Cj4gLS0gICAgIHB1dF8gaCAo
QSB4MSB4MikgPSBwdXRCaXRzIDIgaCAoMDo6SW50KSA+PiBwdXRfIGggeDEgPj4gcHV0XyBoIHgy
Cj4gLS0gICAgIHB1dF8gaCAoQiB4MSkgICAgPSBwdXRCaXRzIDIgaCAoMTo6SW50KSA+PiBwdXRf
IGggeDEKPiAtLSAgICAgcHV0XyBoICBDICAgICAgICA9IHB1dEJpdHMgMiBoICgyOjpJbnQpCj4g
bWFrZVB1dEJvZHkgOjogSW50IC0+IFtDb25dIC0+IFEgW0NsYXVzZV0KPiBtYWtlUHV0Qm9keSBi
aXRzIFtdID0gZG8gLS0gbm8gY29uc3RydWN0b3JzLCBpLmUuIGl0IGlzIHRoZSBwaGFudG9tIHR5
cGUKPiAgICAgICAgICAgICAgICAgICAgICAgICBhIDwtIGNsYXVzZSBbXSAobm9ybWFsQiBbfCBc
XyBfIC0+IHJldHVybiAoKSB8XSkgW10KPiAgICAgICAgICAgICAgICAgICAgICAgICByZXR1cm4g
W2FdCj4KPiBtYWtlUHV0Qm9keSBiaXRzIGNvbnN0cnVjdG9ycyA9IG1hcE0gKHB1dENsYXVzZSBi
aXRzKSAoemlwIGNvbnN0cnVjdG9ycyBbMC4uXSkKPgo+IC0tIHwgR2VuZXJhdGUgYHB1dF9gIGNs
YXVzZSBmb3Igb25lIGNvbnN0cnVjdG9yOgo+IC0tICAgICBwdXRfIGggKEEgeDEgeDIpID0gcHV0
Qml0cyAyIGggKDA6OkludCkgPj4gcHV0XyBoIHgxID4+IHB1dF8gaCB4Mgo+IHB1dENsYXVzZSA6
OiBJbnQgLT4gKENvbixJbnQpIC0+IFEgQ2xhdXNlCj4gcHV0Q2xhdXNlIGJpdHMgKGNvbnN0cnVj
dG9yLCBjb25zdHJ1Y3Rvck51bSkgPSBkbwo+ICAgIGxldCAobmFtZSwgZmllbGRzQ291bnQpID0g
Y25vcm0gY29uc3RydWN0b3IKPiAgICAtLSBDcmVhdGUgdmFyaWFibGVzIGZvciBsZWZ0IGFuZCBy
aWdodCBzaWRlIG9mIGZ1bmN0aW9uIGRlZmluaXRpb24KPiAgICAoaHBhdDpwYXRzLCBodmFyOnZh
cnMpIDwtIGdlbk5hbWVzIChmaWVsZHNDb3VudCsxKQo+ICAgIC0tIEFkZCAicHV0Qml0cyAuLi4i
IGNsYXVzZSB1bmxlc3MgdGhlcmUgaXMgb25seSBvbmUgY29uc3RydWN0b3IKPiAgICBsZXQgcHV0
Yml0c0NsYXVzZSA9IGlmIGJpdHM9PTAgIHRoZW4gW3wgcmV0dXJuICgpIHxdCj4gICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICBlbHNlIFt8IHB1dEJpdHMgYml0cyAkaHZhciAoY29u
c3RydWN0b3JOdW06OkludCkgfF0KPiAgICAtLSBSZWN1cnNpdmVseSBidWlsZCAocHV0XyBoIHgx
ID4+IC4uLikgZXhwcmVzc2lvbiBmcm9tIFt4MS4uLl0gdmFyaWFibGVzIGxpc3QKPiAgICBsZXQg
ZiBbXSAgICAgICA9IFt8IHJldHVybiAoKSB8XQo+ICAgICAgICBmICh2OnZhcnMpID0gW3wgcHV0
XyAkaHZhciAkdiA+PiAkKGYgdmFycykgfF0KPiAgICAtLSBHZW5lcmF0ZSBmdW5jdGlvbiBjbGF1
c2UgZm9yIG9uZSBjb25zdHJ1Y3Rvcgo+ICAgIGNsYXVzZSBbaHBhdCwgY29uUCBuYW1lIHBhdHNd
ICAgICAgICAgICAgICAgICAgICAgICAtLSBcaCAoQSB4MSB4MikgLT4KPiAgICAgICAgICAgKG5v
cm1hbEIgW3wgJHB1dGJpdHNDbGF1c2UgPj4gJChmIHZhcnMpIHxdKSAgLS0gcHV0Qml0cyAyIGgg
MCA+PiBwdXRfIGggeDEgPj4gcHV0XyBoIHgyCj4gICAgICAgICAgIFtdCj4KPgo+IC0tIHwgTWFr
ZSBib2R5IGZvciBmdW5jdGlvbiBgZ2V0YDoKPiAtLSAgICAgZ2V0IGggPSBkbyAobjo6SW50KSA8
LSBnZXRCaXRzIDIgaAo+IC0tICAgICAgICAgICAgICAgIGNhc2UgbiBvZgo+IC0tICAgICAgICAg
ICAgICAgICAgICAwIC0+IGRvIHgxIDwtIGdldCBoOyB4MiA8LSBnZXQgaDsgcmV0dXJuIChBIHgx
IHgyKQo+IC0tICAgICAgICAgICAgICAgICAgICAxIC0+IGRvIHgxIDwtIGdldCBoOyByZXR1cm4g
KEIgeDEpCj4gLS0gICAgICAgICAgICAgICAgICAgIDIgLT4gZG8gcmV0dXJuIEMKPiBtYWtlR2V0
Qm9keSA6OiBJbnQgLT4gW0Nvbl0gLT4gUSBDbGF1c2UKPiBtYWtlR2V0Qm9keSBiaXRzIFtdID0g
ZG8gLS0gbm8gY29uc3RydWN0b3JzLCBpLmUuIGl0IGlzIHRoZSBwaGFudG9tIHR5cGUKPiAgICAg
ICAgICAgICAgICAgICAgICAgICBsZXQgYyA9IFt8IFxfIC0+IHJldHVybiAoZXJyb3IgInZhbHVl
IG9mIHBoYW50b20gdHlwZSIpIHxdCj4gICAgICAgICAgICAgICAgICAgICAgICAgY2xhdXNlIFtd
IChub3JtYWxCIGMpIFtdCj4KPiBtYWtlR2V0Qm9keSBiaXRzIGNvbnN0cnVjdG9ycyA9IGRvCj4g
ICAgLS0gR2VuZXJhdGUgdHdvIHBhdHRlcm4vZXhwcmVzc2lvbiBwYWlycyB1c2VkIGhlcmUKPiAg
ICAoW2hwYXRdLFtodmFyXSkgPC0gZ2VuTmFtZXMgMQo+ICAgIChbbnBhdF0sW252YXJdKSA8LSBn
ZW5OYW1lcyAxCj4gICAgLS0gTGlzdCBvZiBtYXRjaGVzIGZvciAiY2FzZSIKPiAgICBsZXQgbWF0
Y2hlcyA9IG1hcCAoZ2V0Q2FzZSBodmFyKSAoemlwIGNvbnN0cnVjdG9ycyBbMC4uXSkKPiAgICAt
LSBUaGUgd2hvbGUgImNhc2UiIGV4cHJlc3Npb24gbGFtYmRpZmllZDogKFxuIC0+IGNhc2UgbiBv
ZiAuLi4pCj4gICAgbGV0IGNhc2VFeHAgPSBsYW1FIFtucGF0XSAoY2FzZUUgbnZhciBtYXRjaGVz
KQo+ICAgIC0tIEFkZCAiZ2V0Qml0cyAuLi4iIGNsYXVzZSBiZWZvcmUgImNhc2UgLi4uIiB1bmxl
c3MgdGhlcmUgaXMgb25seSBvbmUgY29uc3RydWN0b3IKPiAgICBsZXQgZ2V0Yml0c0NsYXVzZSA9
ICBpZiBiaXRzPT0wICB0aGVuIFt8ICgkY2FzZUV4cCkgMCB8XQo+ICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgIGVsc2UgW3wgZG8gKG46OkludCkgPC0gZ2V0Qml0cyBiaXRzICRo
dmFyOyAoJGNhc2VFeHApIG4gfF0KPiAgICAtLSBBbmQgbm93IHRoZSBmaW5hbCByZXN1bHQKPiAg
ICBjbGF1c2UgW2hwYXRdICAgICAgICAgICAgICAgICAgIC0tIFxoIC0+Cj4gICAgICAgICAgIChu
b3JtYWxCIGdldGJpdHNDbGF1c2UpICAtLSBkbyAobjo6SW50KSA8LSBnZXRCaXRzIDIgaDsgY2Fz
ZSBuIG9mIC4uLgo+ICAgICAgICAgICBbXQo+Cj4gLS0gfCBHZW5lcmF0ZSBgZ2V0YCBjYXNlIGZv
ciBvbmUgY29uc3RydWN0b3I6Cj4gLS0gICAgIDAgLT4gZ2V0IGggPj49IChceDEtPiBnZXQgaCA+
Pj0gKFx4Mi0+IHJldHVybiAoQSB4MSB4MikpKQo+IGdldENhc2UgOjogRXhwUSAtPiAoQ29uLElu
dGVnZXIpIC0+IFEgTWF0Y2gKPiBnZXRDYXNlIGh2YXIgKGNvbnN0cnVjdG9yLCBjb25zdHJ1Y3Rv
ck51bSkgPSBkbwo+ICAgIGxldCAobmFtZSwgZmllbGRzQ291bnQpID0gY25vcm0gY29uc3RydWN0
b3IKPiAgICBsZXQgY29uc3RydWN0b3JOYW1lID0gY29uRSBuYW1lCj4gICAgLS0gUmVjdXJzaXZl
bHkgYnVpbGQgdGhlIHJpZ2h0IHBhcnQgb2YgbWF0Y2ggYW5kIGFjY3VtdWxhdGUgaW4KPiAgICAt
LSB0aGUgYHJldHVybkV4cHJgIHRoZSByZXR1cm5lZCBleHByZXNzaW9uICh0ZWNobmlxdWUgYm9y
cm93ZWQgZnJvbSB0aGUgcHJpbnRmIGV4YW1wbGUpCj4gICAgbGV0IGYgMCByZXR1cm5FeHByID0g
W3wgcmV0dXJuICRyZXR1cm5FeHByIHxdCj4gICAgICAgIGYgbiByZXR1cm5FeHByID0gW3wgZ2V0
ICRodmFyID4+PSAoXHggLT4gJChmIChuLTEpIFt8JHJldHVybkV4cHIgeHxdKSkgfF0KPiAgICBt
YXRjaCAobGl0UCQgSW50ZWdlckwgY29uc3RydWN0b3JOdW0pCj4gICAgICAgICAgKG5vcm1hbEIg
KGYgZmllbGRzQ291bnQgY29uc3RydWN0b3JOYW1lKSkKPiAgICAgICAgICBbXQo+Cj4KPiAtLSB8
IEdlbmVyYXRlIGBuYCB1bmlxdWUgdmFyaWFibGVzIGFuZCByZXR1cm4gdGhlbSBpbiBmb3JtIG9m
IHBhdHRlcm5zIGFuZCBleHByZXNzaW9ucwo+IGdlbk5hbWVzIDo6IEludCAtPiBRIChbUGF0UV0s
W0V4cFFdKQo+IGdlbk5hbWVzIG4gPSBkbwo+ICBpZHMgPC0gcmVwbGljYXRlTSBuIChuZXdOYW1l
ICJ4IikKPiAgcmV0dXJuIChtYXAgdmFyUCBpZHMsIG1hcCB2YXJFIGlkcykKPgo+IC0tIHwgTm9y
bWFsaXplIGEgY29uc3RydWN0b3IgKHJldHVybiBpdHMgbmFtZSBhbmQgbnVtYmVyIG9mIGZpZWxk
cykKPiBjbm9ybSA6OiBDb24gLT4gKE5hbWUsSW50KQo+IGNub3JtIChOb3JtYWxDIG4gbCkgPSAo
bixsZW5ndGggbCkKPiBjbm9ybSAoUmVjQyAgICBuIGwpID0gKG4sbGVuZ3RoIGwpCj4KPgo+IC0t
Cj4gQmVzdCByZWdhcmRzLAo+ICBCdWxhdCAgICAgICAgICAgICAgICAgICAgICAgICAgICBtYWls
dG86QnVsYXQuWmlnYW5zaGluQGdtYWlsLmNvbQo+Cj4KCgoKLS0gCk1hZ251cyBUaGVybmluZyAg
ICAgICAgICAgICAgICAgICAgICAgIChPcGVuUEdQOiAweEFCNERGQkE0KQptYWdudXPvvKB0aGVy
bmluZ++8jm9yZyAgICAgICAgICBKYWJiZXI6IG1hZ251c++8oHRoZXJuaW5n77yOb3JnCmh0dHA6
Ly90aGVybmluZy5vcmcvbWFnbnVzICAgICAgICAgaWRlbnRpLmNhfHR3aXR0ZXI6IG1hZ3RoZQo=

--===============1165529832==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
template-haskell mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/template-haskell

--===============1165529832==--