#!/usr/bin/perl
$_ = <STDIN>;
s/\[[^\]]*\]//g;
print;