#!/usr/bin/perl

$" = $, = "\t";
$\ = "\n";

sub size {
	return '30-99'   if $_[0] == 1;
	return '100-499' if $_[0] == 0;
}

sub real_q {
	my ( $q0, $q1, $c0, $c ) = @_ ;
	warn ( "Invalid RE 2001: $c0.\n" )  unless $c0; 
	warn ( "Invalid RE 2003: $c.\n" )  unless $c ;
	my $C = $c * $c; 
	my $C0=$c0 * $c0; 
	
	1 + ($q0 - 1) * $C / $C0   ;
}

print qw( _size industry RE2001 RE2003 RE_ratio q0 q1 q q_ratio ); 

while(<DATA>){
	chomp;
	($ind, @q0[0,1], @q1[0,1], @c0[0,1], @c[0,1]) = split ;
	foreach( 0..1 ) {
		$q0[$_] = 9999 if $q0[$_] eq '.' ;
		$q1[$_] = 9999 if $q1[$_] eq '.' ;
		my $q = real_q( $q0[$_], $q1[$_], $c0[$_], $c[$_] );
		print size($_) , $ind, $c0[$_], $c[$_], $c[$_]/$c0[$_], $q0[$_], $q1[$_], $q, $q1[$_]/$q,;
	
	}
}

# Below are data from the Annual Report on the Monthly Labour Survey
# Industry is according to Japan Standard Industrial Classification, 1993
__END__
TL 	.	.	.	.	0.68 	0.68 	1.02 	2.23 
D  	1	6	1	4	3.67 	3.49 	4.30 	3.83 
E 	16	96	16	96	2.10 	2.22 	2.20 	2.38 
F  	.	.	.	.	0.83 	1.00 	1.15 	1.30 
F12-13  	12	64	24	64	2.92 	3.73 	4.17 	5.16 
F14 	6	12	6	18	2.49 	4.08 	4.20 	4.10 
F15 	8	72	10	32	3.75 	2.85 	8.95 	9.17 
F16 	4	16	6	16	2.85 	3.55 	5.82 	3.68 
F17 	6	24	4	16	3.93 	2.71 	4.76 	3.56 
F18 	8	24	12	16	2.70 	2.57 	3.88 	2.76 
F19 	6	32	8	24	2.96 	3.77 	4.88 	3.78 
F20 	12	32	18	12	2.90 	3.52 	2.52 	3.46 
F21 	2	4	6	2	2.66 	5.19 	3.10 	5.76 
F22 	12	36	12	12	2.94 	3.43 	3.75 	2.63 
F23 	6	8	4	4	2.54 	2.92 	3.49 	2.57 
F24 	2	4	2	4	5.94 	4.61 	7.89 	3.94 
F25 	12	36	8	16	3.28 	3.01 	2.72 	2.34 
F26 	12	32	24	24	2.37 	2.22 	4.18 	3.09 
F27 	8	12	8	4	3.48 	3.74 	3.29 	2.51 
F28  	16	96	12	96	2.47 	2.85 	2.88 	3.98 
F29  	32	64	60	48	2.22 	3.46 	2.60 	2.36 
F30 	24	48	36	48	2.21 	3.44 	2.11 	4.00 
F31 	24	48	24	16	1.97 	2.82 	2.42 	2.16 
F32 	6	12	6	12	2.74 	4.07 	4.51 	4.15 
F33-34 	6	16	8	12	3.53 	5.01 	7.46 	4.55 
G  	8	24	24	24	1.81 	2.31 	2.87 	2.90 
H  	32	84	24	96	1.92 	2.27 	3.72 	2.63 
I  	18	108	18	128	2.08 	1.73 	4.46 	9.14 
J  	16	64	12	48	5.32 	5.48 	3.89 	3.66 
K 	2	8	2	8	5.32 	4.39 	6.26 	5.42 
L  	.	.	.	.	1.30 	1.08 	1.29 	1.31