# Упрощенная версия вырезки комментариев
# в стиле Pascal
# (не учитывает возможность появления { или } в строках)
LINE: while (<STDIN>) {
  while (s|({.*}.*){.*}|$1 |) {}
  s|{.*}| |;
  if (s|{.*| |) {
    $front = $_;
	while (<STDIN>) {
      if (/}/) { # end of comment?
        s|^|$front{|;
        redo LINE;
      }
    }
  }
  print;
}