Select Code to Download

P:\test>423305 "max( a, b, c, d ) * atan( pi*4, -1 )"
a, b, c, d, 4, max, pi, 4, *, -1, 2, atan, *

#! perl -slw
use strict;
...
print join', ',  parseExp $ARGV[ 0 ];

__END__