expected <- eval(parse(text="c(0.45281675050827, 0.341451332477862, 0.327316391528549, 0.116360806013062, 0.047547308073752, 0.363746839436921, 0.17244780915826, 0.000182115387407571, 0.582498436619422, 0.646930197256818, 0.0028825402580353, 3.04973899929022, 0.222449976041804, 2.68168753158421, 0.334490374048075, 0.896179436282767, 0.108519944913708, 0.0352654680156939, 0.6309491365644, 0.799627061915744, 1.50447352410031, 1.12159167415673, 0.375534465460524, 0.88251941045508, 7.23639752985193, 28.1347146280164, 7.94280079926704, 0.0401713098895247, 0.686389711522286, 0.0780617206776448, 0.000400678503957407, 0.620527992334434, 1.67352927037185, 0.261773938053576, 0.0127802472219417, 1.21224605812647, 0.0940390681838888, 0.0718777007846802, 0.0931141470522258, 0.156944550388307, 0.000227827487433165, 2.22640362629287, 3.70360651804205, 0.76087824867912, 1.43588787840964, 0.0620125138880063, 0.790271869941513, 0.117707657577765, 0.623877697704391, 5.07206293783973, 5.02266272544033, 0.0719234370624923, 0.0665998514776851, 3.37124341160965, 0.00803116539011555, 0.0074425684073169, 7.06895752570291e-06, 0.171664278128197, 0.770310145821555, 4.92855928390984, 0.691084461121313, 0.693327348954545, 0.451365470350319, 3.45253252358934, 0.188301340701962, 0.72560304954078, 2.48509569069737, 0.774683940866384, 0.43305833071138, 1.48621493444724, 0.0106407782486567, 3.69033166536352, 0.631274486986094, 1.02893793207438, 0.401054537195462, 0.00963881630212954, 0.860482858481413, 1.32877220974039, 10.7609584508321, 5.94420627630345, 0.00058662325787073, 0.142140529030321, 1.40076402750939, 32.4691553463636, 0.100135183744509, 0.0077500764345088, 0.0262389419569279, 1.10021064477515, 11.1745435873339, 1.31458766168215, 0.00220485784237935, 20.9518947121801, 1.23149273186773, 45.4774200948396, 20.402351513226, 0.888586645604297, 4.80876233767479, 1.61091454583624, 0.497522099297664, 3.22134399901167e-05)"));              
test(id=0, code={              
argv <- eval(parse(text="list(c(-0.672916599964862, -0.584338371560402, 0.572115715156077, -0.341116997543456, -0.218053452331652, 0.603114283893957, -0.415268358002702, -0.0134950134274691, 0.76321585191833, 0.804319710846886, 0.0536892937002835, 1.74635019377278, -0.471646028332481, 1.63758588525433, -0.578351427808452, 0.946667542637206, -0.329423655668059, -0.187791022191408, 0.794323068130594, 0.894218687970535, -1.22656982031204, 1.0590522527981, 0.612808669537666, -0.939425042488798, 2.69005530237799, -5.30421668373535, 2.81829750013497, -0.200427817155017, 0.828486397910241, 0.279395276763307, 0.0200169554117855, -0.787735991519008, -1.29364959334893, -0.511638483749587, 0.113049755514737, 1.10102046217428, -0.306657900899176, 0.268100169311174, -0.305146107712725, 0.396162277846222, 0.0150939553276523, 1.49211381144096, -1.92447564755755, 0.872283353434605, -1.19828539105242, 0.249023119183754, -0.888972367366677, -0.343085496017779, -0.789859289813313, 2.25212409468034, 2.24112978772768, -0.268185452742113, -0.258069470254978, -1.83609460856723, -0.0896167695808968, -0.0862703217063487, -0.00265875112142955, -0.414323880711934, -0.87767314293053, -2.22003587446461, -0.8313148988929, 0.832662806275473, -0.671837383858861, -1.85809916947114, -0.433937023889368, -0.851823367571459, -1.57641862799745, -0.880161315252144, -0.658071675968036, -1.21910415241982, -0.103154147995399, -1.92102359833593, 0.794527839025225, -1.0143657782449, 0.633288668140732, -0.0981774734963654, -0.927622152862583, -1.15272382197142, 3.28038998456465, -2.43807429671523, 0.0242203067253644, -0.377015290181077, 1.18353877313309, -5.69817122824189, -0.316441438096387, -0.0880345184260629, -0.161984388003683, -1.04890926431944, 3.34283466347557, -1.14655469197163, -0.0469559138168916, 4.57732396845363, -1.10972642208237, 6.74369483998494, -4.51689622564278, -0.942648739247179, 2.19288903907033, 1.26921808442688, -0.705352464586085, 0.00567568850361933), 2)"));              
do.call(`^`, argv);              
}, o=expected);              

