Select Code to Download

#! perl -slw
use strict;
...
Func_2( Func3( 1* 2 * 3) * aFunc( 3 ) ) + FuNc( 4, 5, 6 )
func( 1, 2+3*4/5**6, 7/8 )
Func_1( 1, xx, -2, e, -10, -2e-10 ) + 1

P:\test>423305
Func_1(1,Func_2(Func3(1+2*3)*aFunc(3))+FuNc(4,5,6),-2,e,-10,2e10)+1
...
Func_1(1,xx,-2,e,-10,-2e-10)+1
1, xx, -2, e, -10, -2e-10, 6, Func_1(), 1, +
( Func_1( 1, xx, -2, e, -10, -2e-10 ) + 1 )