require Regexp::Assemble;
my $ra = Regexp::Assemble->new;
$ra->add($_) while <STDIN>;
print $ra->re;
print "\n";