$afile=$ARGV[0];
$ifile=$ARGV[1];
#print "$afile\n";
$str = `type $ifile`;
#print "$str\n";
#$str =~ s/ /\n/g;
#print "$str\n";
@outstr=split(/ /,$str);
open NEWF,">$afile";
foreach (@outstr) {
	next if ($_!~ m/^\-[DI]/);
	print NEWF "$_\n";
}
#print NEWF $str;
close NEWF;