#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use strict;
use Rc qw(walk);

if (! @ARGV) {
    print "rcconvert (deparse|terse|sh|csh) rcscript\n";
    exit
}

my $bend = ucfirst shift @ARGV;
require "Rc/$bend.pm";

walk(join('', <>), lc $bend);
