24,27c24,28
< 	}	elsif	(	s/^[ 	]*([LR]{2}).*/$1/i	)	{
< 		$lr0	=	substr(	$_,	0,	1);
< 		$lr1	=	substr(	$_,	1,	1);
< 		print(	STDERR	"$lr0$lr1\n"	);
---
> 	}	else	{
> 		if	(	s/^[ 	]*([LR]{2}).*/$1/i	)	{
> 			$lr0	=	substr(	$_,	0,	1	);
> 			$lr1	=	substr(	$_,	1,	1	);
> 			print(	STDERR	"$lr0$lr1\n"	);
29,31c30,33
< 		do{	$_	=	<>;	}	while(	/^$/	);
< 		$ctr_ly	=	0;
< 		&large_section(	$_	);
---
> 			do{	$_	=	<>;	}	while(	/^$/	);
> 			$ctr_ly	=	0;
> 		}
> 		&analyze_line(	$_	);
34,37d35
< 	}	else	{
< 		&large_section(	$_	);
< 
< 		$ctr_sy	=	$ctr_sy	+	1;
45c43
< sub	large_section	{
---
> sub	analyze_line	{