my $n = new RFile;

for (0..2) {
    $c = $n->dump($_);
    print $c, "\n";
}