
/* This is the virtual machine code expressed as a c formatted character
   constant for a function that takes a virtual machine program to an equivalent
   program by translating the top level combinator into more primitive
   combinators if possible. */

char *interpreter_code = "{kqwD{KKkaLssqIW[Ixkqr{AkoaZSIKjiSjaT{GEH{kmHyQRVxnOj\
Kkn{OqRRRho^?pPkwWdzwAAaioH\\xaU\\z{sOPiOQtsPPxcI=bwIooyQaaK_CjaOgSXRQgGHyYZzvS\
GPKpwJhjqHO]UvhnNASryPiOxyEbqZBrpnQI]GMu{xcXr[s=uHzGyIUQmcQPaoCR?NGCwAxomUTwIRx\
oO_QgwhUw_aQjZp^apb<gAtUZUacccHuPXxvPoPGXyYsUOrUOQZpR[yK]atU{Hccu{NgOjkNqtJtjjg\
sQQQVqQRJwQBPc{QQH]ct@[pezmZm[j=iOvQ\\UZaQoNpgPttvwXVmiaqrUdWAwzE@T@[ect<mZBS]a\
uyQzkVuiiHuP_FngJpqPqIMEqIYMPSOH]awypMFUz==zBS]ctU{IUeOVxHrhqNNWHgftgySUtzghnti\
OgaRHDB[gwS\\D@CvEzB[\\Mz=CxUiOiNNdoH_\\xol]QAFPlYaOUILqRUUJIOWiF<MzKjgP^EzGCt@\
[ecvUzvoUjJr_@cI=XcQaURKIPWSjOaoIQPwQWNeecxpiMGLh[\\>Sect@Ct@CtoDySGRCEm[]{JMdV\
BaNkJIOaEOu>vfaVIM\\H\\L[ooH^@<EZEj==z^[dcxcIVW?iP]Uxp[aiWGGIlPkHuocb{<p`jQoaEd\
cySHeLbvSvEzGCth[xRUuFiWFCcuU=ZZQp``aZNWAQhQINxot>ppqRB^mzQVg\\azfCth[\\>S\\>Sa\
csY`EaF]zmZPeZ[vusYqY@fjnf^do^Bp^fHwOD<aviTPf]z>EZ<EZEjEjZ[qQQ?OKLS]azccwAxwMUU\
[QJU@QEBfdKHj>rYOP<btONB>EZf[^We[e[cxAw_ghfpnatU{X<@[]axnhZZZwnqmbEp`i<MV`vu^E[\
^cFez@]zazfCvd[hSfSiQINGTTZ[\\M{PDatUzl^cuz[krjHti>ahPQPGeX^d[sJ]D[hEzfCtDatDat\
UZZ[rZKgIH\\=CvUzvF[\\Mz=xAwAxAtx_kFiG^`\\e\\?OQ<Da{KNHEz<mZ>EZf[fctUz<@[aOUIMT\
Tdat@CwPNAvU{HfS]avawPjh_TlPE[PlvFcxcD\\?AtEzf[]D[]D[\\Mz^SmiZu@n>cvEzuDct@CuBZ\
[]cuu{Phv@Pg<OF^qDNCvo<>[tAtNCw>[hEzb[^cxtqJPp]DS^mzPbnZ^[`\\=Ct@[\\=CtD?x<sBVs\
THEzBB=ZBShEz<mZ<mZ==zNAwoJXu\\Dct<azT<Cth[^^SecvE[gz?GHgNp<m[DUZFO\\HS\\ctEz^[\
dcuhQRmPbnZEkP`W\\>S\\ez==zF[nKkLENlBT>[pFOaw\\cz=[\\S^mzWExfjnj^<=zazde{^W`]Z^\
[`]ZHqIP<=ItAtAwdE{\\S]atUZ<EZ<=zMANMpeBvd[f<D[e[dcth[dcuKOLePBSdEzFCtUZFO^`tbu\
BubErDcz>E[FEZfCuhc\\>SbnZIgG]\\eJFCw>S^`uZuZvSv[vpFQ\\D[fcwFctDat<Ctbt<CyPTXrS\
jlatf[awdEz\\cvd[\\D[g^uFEZ@]z<NCvezMjazMjQOEqdEzFctMbv>[^]zFCtDavEZA?MFcw>[hEz\
@]zczfCv[zecGPFCtMbv=W>]zlaw>Sfcve{=<@]z<mZ<mZlct>CtDat>C{CHgjHEZ\\Rleg>S^ezFct\
NCtNCyHEz>[\\ct?AvEZf[dawhfdYPFcteDs>ez@Uj@Ujlcw>[f<m[\\StAtEzf[]D[fcwxT<lf@UjK\
D>@Uj\\Rn=W<HS\\HS\\>[]atU[\\S]D[hEz@]zKEG]dAh^b\\RleDedEz>[tAteJFO]aw>[\\HShEz\
qFcrFVJ\\edxJR=[\\S]auZuZteJ<mZ>[\\HSqF<PxJL\\IN>\\]atUZFOdEz\\cuZtE{\\S\\ctDJf\
ED^bTeJFOaw^]zFCv>[tAtU[\\SwXdTVDSjSj\\cw>ShEZFCtUZFO]axiTfD>>[dEzFCtf[^ezlateJ\
SjFO^GU<FCtd[hEZ@Uj@UjFcuZv>[aw]K?>ShEZFcv=WDAh@Uj\\ctd[dE{F\\f[^ez@UjFVFN\\Rld\
[hEZFCuP@Uj@Uj\\Rly?leG>S^ezlatf=WDAhFV\\F>K>ez@UjFcv^b^b_PUddMbv=W=BW^JlsDfDB\
\\Rlef=W><d>B>>b_`FVUd?`^_h^>>B\\DB]dD<";
