#!/usr/bin/env perl

use strict;
use warnings;

my $code = join \"\", <>;

$code =~ s/\\/\\*.*?\\*\\///gms;
$code =~ s/(^.*?)\\/\\/.*/$1/gm;
$code =~ s/^\\s*\\n//gm;

print \"$code\";