#!/usr/bin/perl

$totalcols = 4 ;
$colmarker = "|" ;
$emptyline = "               " ;
$line = "---------------" ;
$linelen = 15 ;
$arrow = ">" ;
$space = " " ;
$minus = "-" ;
$tcount = 1 ;

while(<STDIN>)
{ 
	#print  $_; # echo line read

	printf "t%-5d", $tcount ;
	$tcount = $tcount + 1 ;

	#s/^\s+//;
	@array = split (' ', $_) ;

	$fromcol = @array[0] ;
	$tocol = @array[1] ;
	$funcname = @array[2] ;

	for ( $i = 1; $i < $fromcol ; ++$i )
	{ 
		print $colmarker ;
		print $emptyline ;
		print $space ;
	}

	if ($fromcol == $tocol)
	{
		print $colmarker ;
		print "<=" ;
		
		$tmplen= length ($funcname) ;
		$tmplen = $linelen - $tmplen - 1 ;
		$tmpstr = substr($emptyline, 0, $tmplen ) ;
		printf "%s%-${tmplen}s", $funcname, $tmpstr;
	}
	else
	{
	for ( $i = $fromcol; $i < $tocol ; ++$i )
	{ 
		print $colmarker ;
		if ($i == $fromcol) 
		{ 
			$tmplen= length ($funcname) ;
			$tmplen = $linelen - $tmplen ;
			$tmpstr = substr($line, 0, $tmplen) ;
			printf "%${tmplen}s%s", $tmpstr, $funcname;
			if ($i == $tocol - 1 )
			{
				print $arrow ;
			}
			else
			{
				print $minus ;
			}
		}
		else
		{
			print $line ;
			if ($i == $tocol - 1 )
			{
				print $arrow ;
			}
			else
			{
				print $minus ;
			}
		}
	}
	}

	for ( $i = $tocol; $i <= $totalcols ; ++$i )
	{ 
		print $colmarker ;
		print $emptyline ;
		print $space ;
	}

	print "\n";

}