#!/usr/bin/perl

$il = 0;

while (<STDIN>) {
	if (/(\s*)#else/) { $il = length($1); }
	if (/(\s*)#endif/) { $il = length($1); }
	print (substr($_,$il));
	if (/(\s*)#else/) { $il = length($1)+2; }
	if (/(\s*)#if/) { $il = length($1)+2; }
}
