#!/usr/bin/perl -w
use strict;
use warnings;

while (<STDIN>) {
	s{</.*?>}{}g;
	s{<(.*?)>}{$1:}g;
	s{\t}{    }g;
	s{ +$}{};
	print;
}