#!/usr/bin/perl
#$_ = join "",<STDIN>; tr/\n\r \t/ /s; s/</\n</g; s/>/>\n/g; s/\n ?\n/\n/g; s/^ ?\n//s; s/ $//s; print
$_ = join "",<STDIN>; s/</\n</g; s/>/>\n/g; s/\n\s*\n/\n/gs; s/^\s*\n//s; s/\s*\z//s; print "$_\n"