#!/usr/bin/perl

$file = $ARGV[0];

open(FILE,$file);
open(FILE_OUT,">&STDOUT");

while($row = <FILE>)
{
	$row =~ s/\/\/+\*\//*\//;
	$row =~ s/\/\/.*[^\/]\n/\n/;
	$big .= $row;
}

$big =~ s/\/\*(.|\n)*?(\*\/)//g;

print $big;

close(FILE);
close(FILE_OUT);

