#!/usr/bin/perl

$/='<h';

while (<>){
	if (/([1-5])>(.*?)<\/h.>/)
#	{print "$1 $2 \n";}	
	{print ".." x $1," $2 \n";}	

}
