#!/usr/bin/perl
#
#

use RcReader qw(rc_cpp);

open(IN, "cpp1.test");


@x = rc_cpp(*IN, *STDOUT);
print "RET: @x\n";
