#!/usr/bin/perl
use strict; use warnings;
$_ = join "", <STDIN>;
s/,//g;
s/\(.*?\)//g;
s/\[.*?\]//g;
s/\s+/ /g;
print "$_\n";