#!/usr/bin/perl -w

#
# This tool is supposed to convert the ccat Parallel MT/LXX
# to a valid OSIS file.
#
# @author Martin Gruner
# @copyright GPL
#

use strict;

binmode(STDOUT, ":utf8"); #see "man perluniintro"

my $prefix = "./";

my $MorphologicalSegmentStart   = "<seg type=\"morph\">" ;
my $MorphologicalSegmentEnd     = "</seg>" ;
my $MorphologicalDivisionMarker = $MorphologicalSegmentEnd . $MorphologicalSegmentStart;

my $hebrewLetters="A-Z\(\)\+\#\$\*\&/r"; #used in a character class of a regexp later
my %hebrew2utf8 = (
")" =>chr(0x05D0), #HEBREW LETTER ALEF

"A" =>chr(0x05D0), #HEBREW LETTER ALEF     # TODO: check, this is from an  occurrence of ABRHM

"B" =>chr(0x05D1), #HEBREW LETTER BET
"G" =>chr(0x05D2), #HEBREW LETTER GIMEL
"D" =>chr(0x05D3), #HEBREW LETTER DALET
"H" =>chr(0x05D4), #HEBREW LETTER HE
"W" =>chr(0x05D5), #HEBREW LETTER VAV
"Z" =>chr(0x05D6), #HEBREW LETTER ZAYIN
"z" =>chr(0x05D6), #HEBREW LETTER ZAYIN  # TODO: this occured in a retranslation
"X" =>chr(0x05D7), #HEBREW LETTER HET
"+" =>chr(0x05D8), #HEBREW LETTER TET
"Y" =>chr(0x05D9), #HEBREW LETTER YOD
"I" =>chr(0x05D9), #HEBREW LETTER YOD	# TODO: this occured in a retranslation (KI)
"K" =>chr(0x05DB), #HEBREW LETTER KAF
"L" =>chr(0x05DC), #HEBREW LETTER LAMED
"M" =>chr(0x05DE), #HEBREW LETTER MEM
"N" =>chr(0x05E0), #HEBREW LETTER NUN
"S" =>chr(0x05E1), #HEBREW LETTER SAMEKH
"(" =>chr(0x05E2), #HEBREW LETTER AYIN
"P" =>chr(0x05E4), #HEBREW LETTER PE
"C" =>chr(0x05E6), #HEBREW LETTER TSADI
"Q" =>chr(0x05E7), #HEBREW LETTER QOF / KOF
"R" =>chr(0x05E8), #HEBREW LETTER RESH
"r" =>chr(0x05E8), #HEBREW LETTER RESH  # TODO: this occured in a retranslation
"#" =>chr(0x05E9).chr(0x05C1), #HEBREW LETTER SHIN == SIN/SHIN without dot
"\$" =>chr(0x05E9).chr(0x05C1), #HEBREW LETTER SHIN + SHIN DOT == SHIN
"&" =>chr(0x05E9).chr(0x05C2), #HEBREW LETTER SHIN + SIN DOT == SIN
"T" =>chr(0x05EA), #HEBREW LETTER TAV
"-" =>chr(0x05BE), #MAQQEF

# Special stuff
"*" =>"*<note type=\"textual\">Ketiv.</note>", # TODO:FIX
"**" =>"**<note type=\"textual\">Qere.</note>", #
"/" => $MorphologicalDivisionMarker,

"," => ",", #separate words in colB
"?" => "<note type=\"textual\">Uncertain.</note>" #HACK
);

my %final_hebrew2utf8 = (
"K" =>chr(0x05DA), #HEBREW LETTER FINAL KAF  # TODO: HANDLE FINAL LETTERS
"M"=>chr(0x05DD), #HEBREW LETTER FINAL MEM
"N" =>chr(0x05DF), #HEBREW LETTER FINAL NUN
"P" =>chr(0x05E3), #HEBREW LETTER FINAL PE
"C" =>chr(0x05E5), #HEBREW LETTER FINAL TSADI
);


my $greekLetters = "A-Z#3\(\)+=|\\/";

my %greek2utf8 = (
"\\"=>chr(0x0300), #COMBINING GRAVE ACCENT
"/" =>chr(0x0301), #COMBINING ACUTE ACCENT
"+" =>chr(0x0308), #COMBINING DIAERESIS
"=" =>chr(0x0342), #COMBINING GREEK PERISPOMENI / CIRCUMFLEX
")" =>chr(0x0313), #COMBINING COMMA ABOVE / SMOOTH BREATHING
"(" =>chr(0x0314), #COMBINING REVERSED COMMA ABOVE / ROUGH BREATHING
"|" =>chr(0x0345), #COMBINING GREEK YPOGEGRAMMENI / IOTA SUBSCRIPT

"'" => "'",
"?" => "<note type=\"textual\">Uncertain.</note>", #HACK

"^" => "^",

"-" => "-", #occurs in the text
":" => ":", #occurs in the text!?
"!" => "!", #occurs in the text!?
"|" => "|", #occurs in the text!?

"A" =>chr(0x03B1), #GREEK SMALL LETTER ALPHA
"B" =>chr(0x03B2), #GREEK SM LETT BETA / SM LETTER BETA BEGINNING OF WORD
"G" =>chr(0x03B3), #GREEK SMALL LETTER GAMMA
"D" =>chr(0x03B4), #GREEK SMALL LETTER DELTA
"E" =>chr(0x03B5), #GREEK SMALL LETTER EPSILON
"e" =>chr(0x03B5), #GREEK SMALL LETTER EPSILON # occurs in Neh
"V" =>chr(0x03DD), #GREEK SMALL LETTER DIGAMMA
"Z" =>chr(0x03B6), #GREEK SMALL LETTER ZETA
"H" =>chr(0x03B7), #GREEK SMALL LETTER ETA
"Q" =>chr(0x03B8), #GREEK SMALL LETTER THETA
"I" =>chr(0x03B9), #GREEK SMALL LETTER IOTA
"K" =>chr(0x03BA), #GREEK SMALL LETTER KAPPA
"L" =>chr(0x03BB), #GREEK SMALL LETTER LAMDA
"M" =>chr(0x03BC), #GREEK SMALL LETTER MU
"N" =>chr(0x03BD), #GREEK SMALL LETTER NU
"n" =>chr(0x03BD), #GREEK SMALL LETTER NU # occurs in Neh
"C" =>chr(0x03BE), #GREEK SMALL LETTER XI
"O" =>chr(0x03BF), #GREEK SMALL LETTER OMICRON
"P" =>chr(0x03C0), #GREEK SMALL LETTER PI
"R" =>chr(0x03C1), #GREEK SMALL LETTER RHO
"S" =>chr(0x03C3), #GREEK SMALL LETTER SIGMA
"J" =>chr(0x03C2), #GREEK SM LETT FINAL SIGMA / SM LETT SIGMA END OF WORD
"T" =>chr(0x03C4), #GREEK SMALL LETTER TAU
"U" =>chr(0x03C5), #GREEK SMALL LETTER UPSILON
"F" =>chr(0x03C6), #GREEK SMALL LETTER PHI
"X" =>chr(0x03C7), #GREEK SMALL LETTER CHI
"Y" =>chr(0x03C8), #GREEK SMALL LETTER PSI
"W" =>chr(0x03C9), #GREEK SMALL LETTER OMEGA
);

sub createNote(){ my $noteText = shift; return("<note type=\"textual\">$noteText</note> "); }
sub openNote(){   my $noteText = shift;	return("<note type=\"textual\">$noteText "); }
sub closeNote(){  my $noteText = shift;	return("$noteText</note> "); }


my %notes = (
"{#}" => "Asterized passage (in Job).",
"{g}" => "Reference to difference between the text of Rahlfs and that of the relevant Göttingen edition.",
"..a" => "Word included in one of the Aramaic sections.",
",,a" => "Word included in one of the Aramaic sections.", #my addition, ok
"*" => "Ketib.",
"**" => "Qere.",
"*z" => "Qere wela ketib, ketib wela qere.",
#"[ ]" => "Reference of number of verse in LXX, different from MT.",  # TODO: MAKE USE OF IT
#"[[ ]]" => "Reference number of verse in MT, different from the LXX.",
"{x}" => "UNKNOWN",		# TODO: FIX
"--- {x}" => "Apparent minus created by lack of equivalence between long stretches of text in the LXX and MT.",
"--+ {x}" => "Apparent plus created by lack of equivalence between long stretches of text in the LXX and MT.",
"{...}" => "Equivalent reflected elsewhere in the text, disregarded by indexing program.",
"~" => "Difference in sequence between MT and LXX, denoted after the first Hebrew word and before the second one, as well as between two Greek words.",
"~~~" => "Equivalent of the Hebrew or Greek word(s) occurring elsewhere in the verse or context (transposition).",
"{..~}" => "Stylistic or grammatical transposition.",
"{..}" => "Stylistic or grammatical transposition.", # TODO: occurs in the text, unknown meaning
"{...}" => "Stylistic or grammatical transposition.", # TODO: occurs in the text, unknown meaning
"{....}" => "Stylistic or grammatical transposition.", # TODO: occurs in the text, unknown meaning
"---" => "In the Greek column:  Hebrew counterpart lacking in the LXX (minus in the LXX).",
"---?" => "In the Greek column:  Hebrew counterpart lacking in the LXX (minus in the LXX)?",
"--" => "In the Greek column:  Hebrew counterpart lacking in the LXX (minus in the LXX).",  # TODO: my addition, check, probably wrong
"{---%}" => "In the Greek column:  Hebrew counterpart lacking in the LXX (minus in the LXX).",  # TODO: my addition, check??
"--?" => "In the Greek column:  Hebrew counterpart lacking in the LXX (minus in the LXX)?",  # TODO: my addition, check, probably wrong
"--+" => "In col a. of the Hebrew:  element \"added\" in the Greek (plus in the LXX).",
"---+" => "In col a. of the Hebrew:  element \"added\" in the Greek (plus in the LXX).", # TODO: my addition
"-.-" => "In col a. of the Hebrew:  element \"added\" in the Greek (plus in the LXX).", # TODO: my addition, check?
"-+" => "In col a. of the Hebrew:  element \"added\" in the Greek (plus in the LXX).", # TODO: my addition
"'" => "Long minus or plus (at least four lines).", # TODO: my addition, check
"''" => "Long minus or plus (at least four lines).",
"{d}" => "Reference to doublet (occurring between the two elements of the doublet).",
"={d};" => "Reference to doublet (occurring between the two elements of the doublet).", # TODO: occurs, check?
"{d?}" => "Reference to doublet (occurring between the two elements of the doublet)?",
"{d}?" => "Reference to doublet (occurring between the two elements of the doublet)?",
"{?d}" => "Reference to doublet (occurring between the two elements of the doublet)?",
"{..d}" => "Distributive rendering, occurring once in the translation but referring to more than one Hebrew word.",
"{..r}" => "Notation in Hebrew column of elements repeated in the translation.",
"?" => "Questionable notation, equivalent, etc.",
"??" => "Questionable notation, equivalent, etc.", # TODO: my addition
"{p}" => "Greek preverb representing Hebrew preposition.",
"{p}+" => "Greek preverb representing Hebrew preposition.",  # TODO: my addition ???
"{pm}" => "Greek preverb representing Hebrew preposition.",	# TODO: my addition, check
"{..p}" => "Preposition added in the LXX in accordance with the rules of the Greek language or translational habits.",
"{...p}" => "Preposition added in the LXX in accordance with the rules of the Greek language or translational habits.", #my addition
"{..^{p}" => "Preposition added in the LXX in accordance with the rules of the Greek language or translational habits.", #my addition

"{+}" => "Unknown.", # TODO: occurs in the text, unknown meaning
"{+?}" => "Unknown?", # TODO: occurs in the text, unknown meaning

"{!}" => "Infinitive absolute.",
"{!}+" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}n" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}na" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}na+" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}ad" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}aj" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}nad" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}nd" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}ndd" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}nd+" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}p" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}p+" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}pc" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}pd" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}-" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning
"{!}v" => "Infinitive absolute.", # TODO: occurs in the text, but unknown meaning

"{s}" => "Hebrew M/, MN (comparative, superlative) reflected by Greek comparative or superlative.", # TODO: UTF-8
"{t}" => "Transliterated Hebrew word.",
"{dt}" => "Transliterated Hebrew word.", # TODO: occurs. DOUBLET?
"{t.}" => "Transliterated Hebrew word.", # TODO: unknown
"<t?>" => "Transliterated Hebrew word.", # TODO: unknown
"{t?}" => "Transliterated Hebrew word?",

"{c}" => "Unknown.", # TODO: unknown
"{c}?" => "Unknown.", # TODO: unknown
"{z}" => "Unknown.", # TODO: unknown
"<qla>" => "Unknown.", # TODO: unknown
"#\"" => "Unknown.", # TODO: unknown
".vs" => "Unknown.", # TODO: unknown, can hardly be a change of cons. Ezek 40:49


"#" => "Long line continuing in next one, placed both at the end of the line running over and at the beginning of the following line in the opposite column.",
"{v}" => "The reading of the main text of the LXX seems to reflect a secondary text, while the \"original\" reading is reflected in a variant.",

# Notes regarding ColB of the Hebrew
#"=" => "Introducing col. b of the Hebrew (a selection of retroverted readings, presumably found in the parent text of the LXX).",
"={d}" => "Reference to doublet (occurring between the two elements of the doublet).", # TODO: my addition, check
"={d}\@" => "Reference to doublet (occurring between the two elements of the doublet). Etymological exegesis.", # TODO: my addition, check
"={d?}" => "Reference to doublet (occurring between the two elements of the doublet)?", # TODO: my addition, check
"=\%" => "Introducing categories of translation technique recorded in col. b.",
"=\%vap" => "Change from active to passive form in verbs.",
"=\%vpa" => "Change from passive to active form in verbs.",
"=\%vpa?" => "Change from passive to active form in verbs?",
"\%vpa" => "Change from passive to active form in verbs.",
"=vpa" => "Change from passive to active form in verbs.",  # TODO: my addition, check
"=\%p" => "Difference in preposition or particle.",
"=p\%" => "Difference in preposition or particle.",
"=\%p?" => "Difference in preposition or particle?",
"=\%?p" => "Difference in preposition or particle?",
"=p" => "Difference in preposition or particle.", # TODO: my addition, check, uncertain?
"={d}\%p" => "Difference in preposition or particle.", # TODO: my addition, check, uncertain? DOUBLET?
"=\%pa" => "Difference in preposition or particle.", # TODO: my addition, check
"=\%p=" => "Difference in preposition or particle.", # TODO: my addition, check
"=\%p+" => "Addition of preposition or particle.",
"\%p+" => "Addition of preposition or particle.",  #my addition
"=\%p+?" => "Addition of preposition or particle?",
"=\%p-" => "Omission of preposition or particle.",
"=\%p-?" => "Omission of preposition or particle?",
"=\%?p-" => "Omission of preposition or particle?",
"=p\%-" => "Omission of preposition or particle.", # TODO: my addition, check, uncertain?
"=p-" => "Omission of preposition or particle.", # TODO: my addition, check, uncertain?
"=;" => "Retroversion in col. b based on equivalence occurring in immediate or remote context.",
#"G" => "Hebrew variant, but at this stage no plausible retroversion is suggested.",
"=+" => "Difference in numbers between MT and the LXX.",
"=\@" => "Etymological exegesis.",
"=?\@" => "Etymological exegesis?", #my addition
"=\@?" => "Etymological exegesis?", #my addition
"=\@...a" => "Etymological exegesis according to Aramaic.",
"=\@a" => "Etymological exegesis according to Aramaic.", # TODO: my addition, check
"=:" => "Introducing reconstructed proper noun.",
"=:?" => "Introducing reconstructed proper noun?",
":" => "Introducing reconstructed proper noun.",	#my addition
"=v" => "Difference in vocalization (reading).",
"={d}v" => "Difference in vocalization (reading).",   # TODO: check, occurs in text, DOUBLET?
"=v?" => "Difference in vocalization (reading)?", 
"=vs" => "Difference in vocalization (reading).", # TODO: check, occurs in text
"=>" => "Difference in vocalization (reading).", # TODO: check, occurs in text
"=r" => "Incomplete retroversion.",

"=a" => "Aramaic?",	# TODO: UNKNOWN


"{*}" => "Agreement of LXX with ketib.",
"{**}" => "Agreement of LXX with qere.",
"{**" => "Agreement of LXX with qere.", #my addidion
"{**?}" => "Agreement of LXX with qere?", #my addition

"." => "Interchange of consonants between MT and the presumed Hebrew parent text of the LXX.",

".a" => "Interchange of consonants between MT and the presumed Hebrew parent text of the LXX.",  # TODO: occurs, unknown
".m" => "Metathesis of consonants between MT and the presumed Hebrew parent text of the LXX.",
".z" => "Possible abbreviation.",
".s" => "One word of MT separated into two or more words in the parent text of the LXX.",
".j" => "Two words of MT joined into one word in the parent text of the LXX.",
".w" => "Different word-division reflected in the parent text of the LXX.",

"(!)" => "(!)", #my addition


"<sp" => "<sp",  #TODO: FIX, occurs in text
"<sp>" => "<sp>",  #TODO: FIX, occurs in text
"<sp^>" => "<sp^>",  #TODO: FIX, occurs in text

"^" => "^",			#Notsure what these are
"?^" => "?^",			#Notsure what these are
"^^^" => "^^^", 
"___" => "___",

);

sub translateHebrewNote(){
	my $origNote = shift;

#	print("TranslateHebrewNote $origNote\n");

	(not $origNote) and die("Hebrew note empty.");

	($origNote eq "=") and return;	#= only marks colB, no real note

	($notes{ $origNote }) and return( &createNote( $notes{$origNote} ) );

	($origNote =~ m/^=?\.([a-z()&\$+-])([a-z()&\$+-]+)$/) and 
		return( &createNote("Interchange of consonants (" . 
			&translateHebrewLetters( uc( $1 ) ) . "/" . &translateHebrewLetters( uc( $2 ) ) .
			") between MT and the presumed Hebrew parent text of the LXX.") );

	($origNote =~ m/^\[([^\]]+)\]/) and 
		return( &createNote( "Number of verse in LXX ($1) is different from MT." ) );

	#special case: no note, but a crossref (no book ID)     # TODO: for now OSIS refs are not parsed FIX THIS, see above
 	($origNote =~ m/^=?\[\[|\]\]$/) and
		return $origNote;

	($origNote =~ m/^=?{\.\.d(.+)}/) and 
		return( &createNote("(".&translateHebrewWordorNote( $1 ).") ". $notes{ "{..d}" }) );

	($origNote =~ m/^=?{\.\.\.r(.+)}/) and 
		return( &createNote("(".&translateHebrewWordorNote( $1 ).") ". $notes{ "{..r}" }) );

	($origNote =~ m/^=?{\.\.r(.+)}/) and 
		return( &createNote("(".&translateHebrewWordorNote( $1 ).") ". $notes{ "{..r}" }) );

	($origNote =~ m/^=?{\.\.\.(.+)}/) and 
		return( &createNote("(".&translateHebrewWordorNote( $1 ).") ". $notes{ "{...}" }) );

	($origNote =~ m/^=?{\.\.(.+)}/) and 
		return( &createNote("(".&translateHebrewWordorNote( $1 ).") ". $notes{ "{..}" }) );

	#Special cases: the note includes more than one word, "cat" the results together
	($origNote =~ m/^=?{\.\.\.([^}]+)$/) and 
		return( &openNote( $notes{"{...}"} . "(".&translateHebrewWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.r([^}]+)$/) and 
		return( &openNote( $notes{"{..r}"} . "(".&translateHebrewWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.([^}]+)$/) and 
		return( &openNote( $notes{"{..}"} . "(".&translateHebrewWordorNote($1) ." " ) );

	($origNote =~ m/^([^{]+)}$/) and 
		return( &closeNote(&translateHebrewWordorNote( $1 ).")" ) );


	($origNote =~ m/^=?@([?$hebrewLetters]+)/) and
		return( &createNote( $notes{ "=\@" } ) . &translateHebrewWordorNote( $1 ) );

	($origNote =~ m/^=?\^([?$hebrewLetters]+)/) and
		return( "^" . &translateHebrewWordorNote( $1 ) );   # TODO: check, what is ^?

	#
	# Special handling for the = colB Notes
	#
	if (($origNote =~ m/^=/) and (not $notes{ $origNote } )) { #only split if the note does not exist, to avoid parsing problems
# 		print("note reads $origNote\n");
		if ($origNote =~ m/^=(<[0-9.a-z]+>)$/){
			return( &translateHebrewWordorNote( $1 ) );
		}
		elsif ($origNote =~m/^=(.+)$/ and $notes{ $1 }){
			return( &translateHebrewWordorNote( $1 ) );
		}
		elsif ($origNote =~ m/^=([?$hebrewLetters]+)/){
			return( &translateHebrewWordorNote( $1 ) );
		}
	}

	#special case: no note, but a crossref (no book ID)     # TODO: for now OSIS refs are not parsed
 	($origNote =~ m/^<|>$/) and
#		return("<reference osisRef=\"$1.$2\"/>");
		return $origNote;

 	($origNote =~ m/^.+[.].+$/) and #Occurs e.g.: "<gen1.1 ex1.2 lev3.3"
		return $origNote;

	($origNote =~ m/^[?](.*)/) and 
		return( &createNote( $notes{"?"} ) . &translateHebrewWordorNote( $1 ) );

	($origNote =~ m/^(.+),(.+)$/) and 	# 2 Notes / Words, split up, but only at the end
		return( &translateHebrewWordorNote( $1 ). "," .&translateHebrewWordorNote( $2 ) );

	($origNote =~ m/^={d}@([?$hebrewLetters]+)a/) and #special case ;)
		return( &createNote( $notes{"{d}"} ." ". $notes{ "=\@a" } ) . &translateHebrewWordorNote( $1 ) );

	HANDLE_NOTE_FALLBACK: for my $i ( 1..(length($origNote)-1) ){ #last try, split up into chunks
		my $currentLength = length( $origNote ) - 1 - $i;    #start with the longest and become shorter, to find the complicated notes {!}p before the simple {!}
		if ( $notes{ substr($origNote,0,$currentLength) } ){
			return( &translateHebrewNote(substr($origNote,0,$currentLength)) . &translateHebrewWordorNote(substr($origNote,$currentLength, length($origNote) - $currentLength) ) );
		}
	}
	
	die("Note $origNote not found.\n");
}

sub translateHebrewLetters(){ #will return unicode hebrew without morph separation
	my $hebrew = shift;
	my $lastIndex = length( $hebrew )-1;
	my $result;
	my $letter;
	(not $hebrew) and die "Hebrew string empty...\n";

	foreach my $i (0..$lastIndex ){
		$letter = substr($hebrew,$i,1);
		if ($i == $lastIndex && $letter =~ m/(K|M|N|P|C)/){
			$result .= $final_hebrew2utf8{ $letter } || die("Could not find FINAL Hebrew letter $hebrew\n");
# 			printf("successfully inserted $final_hebrew2utf8{ $letter }\n");
		}
		else{
			$result .= $hebrew2utf8{ $letter } || die("Could not find Hebrew letter $hebrew\n");
		}
	}
	return $result;
}

sub translateHebrewWordorNote(){ #will return unicode hebrew with morph separation
	my $hebrew = shift;

	if (not $hebrew) { die("Hebrew string empty.") };

# 	print("TranslateHebrew of: $hebrew\n");

	$hebrew =~ s/^mn$/.mn/;	#Ezek 24:17, error?

	( $notes{ $hebrew } ) and return &translateHebrewNote( $hebrew ); # exact match first

	( $hebrew =~ m/^[^$hebrewLetters]/ ) and return &translateHebrewNote( $hebrew );
	( $hebrew =~ m/^([$hebrewLetters]+)(\[.+\])/ ) and 
		return &translateHebrewWordorNote( $1 ) . &translateHebrewNote( $2 );
	( $hebrew =~ m/[}]$/ ) and return &translateHebrewNote( $hebrew );

	#NOW WE ASSUME IT IS A HEBREW WORD
	return $MorphologicalSegmentStart . &translateHebrewLetters( $hebrew ) . $MorphologicalSegmentEnd;
}


sub translateGreekNote(){
	my $origNote = shift;

#	print("TranslateGreekNote $origNote\n");

	(not $origNote) and die("Greek note empty.");

	($notes{ $origNote }) and return( &createNote( $notes{$origNote} ) );

	($origNote =~ m/^\[\[([^\]]+)\]\]/) and 
		return( &createNote( "Number of verse in MT ($1) is different from the LXX." ) );

	($origNote =~ m/^\[([^\]]+)\]?/) and 
		return( &createNote( "Number of verse in LXX ($1) is different from MT." ) );

	#special case: no note, but a crossref (no book ID)     # TODO: for now OSIS refs are not parsed FIX THIS, see above
 	($origNote =~ m/^\[\[|\]\]$/) and
		return $origNote;

	#special case: no note, but a crossref (no book ID)     # TODO: for now OSIS refs are not parsed FIX THIS, see above
 	($origNote =~ m/^\[[^\]]+$|\d+\]$/) and     #e.g. [119. 7], [111.2
		return $origNote;

	($origNote =~ m/^=?{\.\.\.(.+)\.\.\.(.+)}/) and  # special case: {...word1...word2}
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{...}" })
			. &createNote("(".&translateGreekWordorNote( $2 ).") ". $notes{ "{...}" })); 

	($origNote =~ m/^=?{\.\.\.p(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{...p}" }) );

	($origNote =~ m/^=?{\.\.p(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..p}" }) );

	($origNote =~ m/^=?{\.\.~(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..~}" }) );

	($origNote =~ m/^=?{\.\.\.r(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..r}" }) );

	($origNote =~ m/^=?{\.\.r(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..r}" }) );

	($origNote =~ m/^=?{\.\.c(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..c}" }) );

	($origNote =~ m/^=?{\.\.d(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..d}" }) );

	($origNote =~ m/^=?{\.\.\.d(.+)}/) and # TODO: my addition, check
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..d}" }) );

	($origNote =~ m/^=?{\.\.\.\.(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{....}" }) );

	($origNote =~ m/^=?{\.\.\.(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{...}" }) );

	($origNote =~ m/^=?{\.\.(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{..}" }) );

	($origNote =~ m/^=?{c(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{c}" }) );	# TODO: occurs {cXXX}, not documented

	($origNote =~ m/^=?{g(.+)}/) and 
		return( &createNote("(".&translateGreekWordorNote( $1 ).") ". $notes{ "{g}" }) );

	#Special cases: the note includes more than one word, "cat" the results together
	($origNote =~ m/^=?{\.\.d([^}]+)$/) and 
		return( &openNote( $notes{"{..d}"} . "(".&translateGreekWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.r([^}]+)$/) and 
		return( &openNote($notes{"{..r}"} . "(" .&translateGreekWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.p([^}]+)$/) and 
		return( &openNote($notes{"{..p}"} . "(" .&translateGreekWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.\.d([^}]+)$/) and 
		return( &openNote($notes{"{..d}"} . "(" .&translateGreekWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.\.([^}]+)$/) and 
		return( &openNote($notes{"{...}"} . "(" .&translateGreekWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.([^}]+)$/) and 
		return( &openNote($notes{"{...}"} . "(" .&translateGreekWordorNote($1) ." " ) );
	($origNote =~ m/^=?{\.\.(\^[^}]+)$/) and 
		return( &openNote($notes{"{..}"} . "(" .&translateGreekWordorNote($1) ." " ) );
	($origNote =~ m/^=?{c([^}]+)$/) and 
		return( &openNote($notes{"{c}"} . "(" .&translateGreekWordorNote($1) ." " ) );	# TODO: occurs {cXXX}, not documented

	#special case: no note, but a crossref (no book ID)     # TODO: for now OSIS refs are not parsed
 	($origNote =~ m/^<.+>?$/) and
		return $origNote;
	#special case: no note, but a crossref (no book ID)     # TODO: for now OSIS refs are not parsed
 	($origNote =~ m/^{=\d+}$/) and
		return $origNote;

	($origNote =~ m/^([^{]+)}$/) and 
		return( &closeNote(&translateGreekWordorNote( $1 ).")" ) );
	($origNote =~ m/^([^{]+)}\?$/) and 
		return( &closeNote(&translateGreekWordorNote( $1 )."?)" ) );

	($origNote =~ m/^(.+),(.+)$/) and 	# 2 Notes / Words, split up, but only at the end
		return( &translateGreekWordorNote( $1 ). "," .&translateGreekWordorNote( $2 ) );

	($origNote eq "}") and return $origNote;	#special case in EZEK 47:20, superfluous bracket

	($origNote =~ m/^{([^}]+}?)$/) and # TODO: occurs, seems unreasonable
		return( "(" .&translateGreekWordorNote($1) ." " );

	HANDLE_NOTE_FALLBACK: for my $i ( 1..(length($origNote)-1) ){ #last try, split up into chunks
		my $currentLength = length( $origNote ) - 1 - $i;    #start with the longest and become shorter, to find the complicated notes {!}p before the simple {!}
		if ( $notes{ substr($origNote,0,$currentLength) } ){
			return( &translateGreekNote(substr($origNote,0,$currentLength)) . &translateGreekWordorNote(substr($origNote,$currentLength, length($origNote) - $currentLength) ) );
		}
	}
	die("Note $origNote not found.\n");
}

sub translateGreekLetters(){
	my $greek = shift;
	my $lastIndex = length( $greek )-1;
	my $result;
	(not $greek) and die "Greek string empty...\n";

	foreach my $i (0..$lastIndex ){
		$result .= $greek2utf8{ substr($greek,$i,1) } || die("Could not find Greek letters in $greek\n");
	}
	return $result;

}

sub translateGreekWordorNote(){

	my $greek = shift;

	if (not $greek) { die("Greek string empty.") };
#	printf("TranslateGreek of $greek\n");

	( $notes {$greek} ) and return &translateGreekNote( $greek ); # exact match first

	( $greek =~ m/^[^$greekLetters]/ ) and return &translateGreekNote( $greek );
	( $greek =~ m/[}]\??$/ ) and return &translateGreekNote( $greek );
	( $greek eq "#" ) and return &translateGreekNote( "#" );
	( $greek =~ m/(.+)(\[.+\])$/ ) and return &translateGreekWordorNote( $1 ) .&translateGreekNote( $2 );

	( $greek =~ m/^(.+)(\[\d+\])$/ ) and return ( &translateGreekWordorNote( $1 ) . &translateGreekNote ( $2 ) );
	( $greek =~ m/^([^.]+)\.\.\.([^.]+)$/) and # TODO: occurs e.g.  {..bla1 bla2...bla3 #TODO: format output
		return( &translateGreekWordorNote($1) . "..." . &translateGreekWordorNote($2) );

	return &translateGreekLetters( $greek );
}

my $colBContent;

sub parseLine(){
	my $origLine = shift;
	my $result;

#	printf("parsing %s\n", $origLine);

	$origLine =~ s/ --=/ --+ =/;	# TODO: UGLY HACK, this appears in the text but not the notes; this seems most reasonable
	$origLine =~ s/ -\%vap/ =\%vap/;	# TODO: UGLY HACK, this appears in the text but not the notes; this seems most reasonable
	$origLine =~ s/ ;=/ =;/;	# TODO: UGLY HACK, this appears in the text but not the notes; this seems most reasonable
	$origLine =~ s/ \+;/ =;/;	# TODO: UGLY HACK, this appears in the text but not the notes; this seems most reasonable
	$origLine =~ s/[\ ]{10,}/\t/;	# TODO: UGLY HACK, sometimes the tab in the wrong place but large spaces in the right
	$origLine =~ s/\.h-<ge10\.4/.h- <ge10.4>/;	# TODO: UGLY HACK, sometimes the tab in the wrong place but large spaces 
	$origLine =~ s/}{/} {/;	# TODO: UGLY HACK, notes hung together
	$origLine =~ s/=a\$\/DY/=A\$\/DY/;# TODO: UGLY HACK, Hebrew letter wrong
	$origLine =~ s/{\.\.\^EPIQEI\\S\.\.\^E\)FI\/LHSA}/{..^EPIQEI\\S E)FI\/LHSA}/;# TODO: UGLY HACK, strange note
	$origLine =~ s/E\t\)KPE\/SH\|/\tE)KPE\/SH|/; #occurs, tab misplaced
	$origLine =~ s/^\(..r\(L\/YK}/{..r(L\/YK}/; # in EZEK

	$origLine =~ s/^DANW {t}$/DANW\t{t}/; # in DAN
	$origLine =~ s/AI\)W=NOS\[110\.10/AI)W=NOS [110.10/; # in PS
	$origLine =~ s/W\/YD\(Y{\*\*}/W\/YD(Y {**}/; # in PS
	$origLine =~ s/{\.1\.dU\(PE\\R}/{..dU(PE\\R}/; # in PS

	$origLine =~ m/^W\(\/SPER/ and return;	#ignore, probably an error

	($origLine eq "W/)T H/GRG\$Y ^ =W/)T W/H/)MRY KAI\\ TO\\N AMORRAI=ON ") and 
		$origLine = "W/)T H/GRG\$Y ^ =W/)T W/H/)MRY\tKAI\\ TO\\N AMORRAI=ON"; # TODO: hack, Tab missing

	($origLine eq "W/H/KHNYM =W/H/)BNYM .m .kb # KAI\\ OI( LI/QOI ") and # in JoshB: Tab misplaced
		$origLine = "W/H/KHNYM =W/H/)BNYM .m .kb\tKAI\ OI( LI/QOI"; # TODO: hack, Tab missing

	($origLine eq "{...?AU)TOU=} MDBR =v\tLALOU=NTOS") and 
		$origLine = "MDBR =v\tLALOU=NTOS"; # In EZEK: TODO: error, greek in first col

	($origLine eq "W/YC+YRW =;W/YC+YDW .rd <9.12 E)PESITI/SANTO {d} KAI\\ H(TOIMA/SANTO ") and 
		$origLine = "W/YC+YRW =;W/YC+YDW .rd <9.12\tE)PESITI/SANTO {d} KAI\\ H(TOIMA/SANTO"; # TODO: hack, Tab missing
	($origLine eq "W/YBW) {...EI)S}\tKAI\\ EI)SH=LQEN") and 
		$origLine = "W/YBW)\t{...EI)S} KAI\\ EI)SH=LQEN"; # TODO: hack, TAB misplaced
	($origLine eq "W/L) {..^OU)}\tDE\\") and 
		$origLine = "W/L)\t{..^OU)} DE\\"; # TODO: hack, TAB misplaced

# 	print("parsing %s\n", $origLine);

	($origLine =~ m/^([^=\t]+)?([=][^\t]*)?\t(.+)$/) or die("No match in parseLine().\n");
	($1 or $2) or die("Hebrew not found.\n");
	$3 or die("Greek not found.\n");
	$1 and my @hebrewWordsColA = split(/\s+/, $1);
	$2 and my @hebrewWordsColB = split(/\s+/, $2);
	my @greekWords = split(/\s+/, $3);

#	printf("1: $1 2: $2 3: $3\n");

	# 3 columns= Hebrew ColA, Hebrew ColB, Greek

	$result .= "<row>\n  <cell>";
	foreach my $wordA (@hebrewWordsColA){
		($wordA) and $result .= &translateHebrewWordorNote( $wordA ) . " ";
	}
	$result .= "</cell>\n  <cell>";

	foreach my $wordB (@hebrewWordsColB){
		if ($wordB) {
			$result .= &translateHebrewWordorNote( $wordB ) . " ";
			$colBContent = 1;
		}
	}
	$result .= "</cell>\n  <cell>";

	foreach my $wordG (@greekWords){
		($wordG) and $result .= &translateGreekWordorNote( $wordG ). " ";
	}
	$result .= "</cell>\n</row>";

#  	printf("Result: %s\n", $result);
	return $result;
}

my $headerWithColB =     "<row>\n  <cell>MT</cell><cell>(LXX)</cell><cell>LXX</cell>\n</row>";
my $headerWithoutColB  = "<row>\n  <cell>MT</cell><cell></cell><cell>LXX</cell>\n</row>";

#
# grabVerseContent - if the Verse can be found, returns its Content, otherwise nothing
#
sub grabVerseContent(){  #Bookname, chapter, verse, @list
	my @result;
	my $bookname = shift; my $chapter = shift; my $verse = shift; my @buffer = @_;

	my $index=0;

#	printf("Parsing $bookname $chapter:$verse...\n");

	$colBContent = undef;
	my @tmp;

	if ($bookname eq "Obad"){ #special handling, no chapter:verse structure
		LOOP: foreach my $current_item (@buffer){
			if ($chapter == 1 and $current_item =~ m/^$bookname $verse/){ #only for the first chapter
				while ( not $buffer[++$index] =~ m/^\n|^\s*$/ ){
					push(@tmp, &parseLine( $buffer[$index] ) );
				}
				if ($colBContent){
					push(@result, $headerWithColB, @tmp)
				}
				else{
					push(@result, $headerWithoutColB, @tmp)
				}
				return @result;
			}
			$index++;
		}
	}
	else{
		LOOP: foreach my $current_item (@buffer){
			if ($current_item =~ m/^$bookname $chapter:$verse/){
				while ( not $buffer[++$index] =~ m/^\n|^\s*$/ ){
					push(@tmp, &parseLine( $buffer[$index] ) );
				}
				if ($colBContent){
					push(@result, $headerWithColB, @tmp)
				}
				else{
					push(@result, $headerWithoutColB, @tmp)
				}
				return @result;
			}
			$index++;
		}
	}
	return;
}	#Nothing found, don't return a value.

sub processBook(){
# File	File id		ThML id		OSIS id		Short Book Title

	my $filename = shift;
	my $bookname_infile = shift;
	my $thml_id = shift;
	my $osis_id = shift;
	my $short_book_title = shift;

	my @BUF = &loadFile( $filename );

	my @result;

	push(@result, "<div type=\"book\" osisID=\"$osis_id\">");

	CHAPTER: foreach my $chapter(1..1000){
		my $chapter_header_written;
		print("Processing $bookname_infile chapter $chapter.\n");
		my $verse_found;
		VERSE: foreach my $verse(1..1000){
			my @verseContent = &grabVerseContent($bookname_infile, $chapter, $verse, @BUF);
			if (@verseContent) {
				if ($bookname_infile eq "Obad"){
					if (not $chapter_header_written) { 
						$chapter_header_written = 1; #no chapters in Obadiah
					}
					push(@result, "<verse osisID=\"$osis_id.$verse\">\n<table>"); #chapter will be ignored for >1 by grabVerseContent
				}
				else{
					if (not $chapter_header_written) { 
						push(@result, "<chapter osisID=\"$osis_id.$chapter\">");
						$chapter_header_written = 1;
					}
					push(@result, "<verse osisID=\"$osis_id.$chapter.$verse\">\n<table>");
				}
				push(@result, @verseContent);
				push(@result, "</table>\n</verse>");
				$verse_found = 1;
			}
			else{ #verse nonexistent, goto next chapter
				if ($chapter_header_written and (not $bookname_infile eq "Obad") ) { 
					push(@result, "</chapter>");
				}
				last VERSE;
			}
		}
		if (not $verse_found){ #chapter empty, stop here
			if ($chapter == 1) { die("Error: no content in $bookname_infile"); }
			last CHAPTER;
		}
	}

	push(@result, "</div>"); #book
	print("done.\n");

	return(@result);
}

sub processBookVariant(){
# FileA	File_id_A		VariantNameA		FileB		File_id_B		VariantNameB		ThML id		OSIS id		Short Book Title

	my $filenameA = shift;
	my $bookname_infile_A = shift;
	my $variantNameA = shift;
	my $filenameB = shift;
	my $bookname_infile_B = shift;
	my $variantNameB = shift;
	my $thml_id = shift;
	my $osis_id = shift;
	my $short_book_title = shift;

	my @BUFA = loadFile( "$filenameA" );
	my @BUFB = loadFile( "$filenameB" );

	my @result;

	push(@result, "<div type=\"book\" osisID=\"$osis_id\">");

	CHAPTER: foreach my $chapter(1..1000){
		print("Processing $bookname_infile_A and $bookname_infile_B chapter $chapter.\n");
		my $chapter_header_written;
		my $verse_found;
		VERSE: foreach my $verse(1..1000){
			my $colBcontentTMP;
			my @verseContentA = &grabVerseContent($bookname_infile_A, $chapter, $verse, @BUFA);
			($colBContent) and $colBcontentTMP = 1;
			my @verseContentB = &grabVerseContent($bookname_infile_B, $chapter, $verse, @BUFB);
			($colBContent) and $colBcontentTMP = 1;
			if (@verseContentA or @verseContentB) { 
				if (not $chapter_header_written) { 
					push(@result, "<chapter osisID=\"$osis_id.$chapter\">");
					$chapter_header_written = 1;
				}
				push(@result, "<verse osisID=\"$osis_id.$chapter.$verse\">");
				$verse_found = 1;
			}
			else{ #verse nonexistent, goto next chapter
				if ($chapter_header_written) { push(@result, "</chapter>"); }
				last VERSE;
			}
			if (@verseContentA){
				if (@verseContentB){ push(@result, "<table><row><cell>" . $variantNameA ."\n") };
				push(@result, "<table>", @verseContentA, "</table>");
				if (@verseContentB){ push(@result, "</cell><cell>") };
			}
			if (@verseContentB){
				if (@verseContentA){ push(@result, $variantNameB . "\n") };
				push(@result, "<table>", @verseContentB, "</table>");
				if (@verseContentA){ push(@result, "</cell></row></table>") };
			}
			if ($verse_found){ push(@result, "</verse>") }
		}
		if (not $verse_found){ #chapter empty, stop here
			if ($chapter == 1) { die("Error: no content in $bookname_infile_A and $bookname_infile_B"); }
			last CHAPTER;
		}
	}

	push(@result, "</div>"); #book
	print("done.\n");

	return(@result);

}

sub loadFile(){ #$fileName	loads the file into the buffer and makes small corrections
	my $filename = shift;

	open( FILE, "$prefix/$filename") or die("Could not open file $prefix/$filename");
	my @buffer = <FILE>; chomp(@buffer); close( FILE );

	my @result;
	my $index = 0;
	LOOP: foreach my $currentItem (@buffer){
		if ($currentItem =~ m/^DANIHL/){
			$result[$#result] .= " " .$buffer[$index];
		}
		elsif ($currentItem =~ m/^NUMA/){
			$result[$#result] .= $buffer[$index];
		}
		elsif ($currentItem =~ m/^DEUTERONO\/MION/){
			$result[$#result] .= " ".$buffer[$index];
		}
		elsif ($currentItem =~ m/^AU\)TOU=/){
			$result[$#result] .= " ".$buffer[$index];
		}
		elsif ($currentItem =~ m/^E\(\/C/){
			$result[$#result] .= " ". $buffer[$index];
		}
		elsif ($currentItem =~ m/^MOU/){
			$result[$#result] .= " " . $buffer[$index];
		}
		elsif ($currentItem =~ m/^NEHL$/){
			$result[$#result] .= $buffer[$index]; # no space, ANANEL
		}
		elsif ($currentItem =~ m/^ESTHKE\/NAI$/){
			$result[$#result] .= $buffer[$index]; # no space
		}
		elsif ($currentItem =~ m/^ESTHKW\\S$/){
			$result[$#result] .= $buffer[$index]; # no space
		}
		elsif ($currentItem =~ m/^ISA/){	# a few lines in ISAIAH have this in different styles
			$result[$#result] .= $buffer[$index]; # no space
		}
		elsif ($currentItem =~ m/^LAMYAN/){	# in LAM
			$result[$#result] .= $buffer[$index]; # no space
		}
		elsif ($currentItem =~ m/^EZEKIHL/){	# in LAM
			$result[$#result] .= $buffer[$index]; # no space
		}
		elsif ($currentItem =~ m/^\)$/){	# in PS
			$result[$#result] .= $buffer[$index]; # no space
		}
		elsif ($currentItem =~ m/^PS[Y\s]/){	# in PS; breaks at PS or PSY
			$result[$#result] .= $buffer[$index]; # no space
		}
		elsif (($buffer[$index+1] =~ m/^#/) && ($buffer[$index] =~ m/^(.*)#$/)){	# in Daniel, # is used as a "continue line on next line" marker
			push(@result, $1);
		}
		elsif (($buffer[$index-1] =~ m/^(.*)#$/) && $buffer[$index] =~ m/^#\t(.*)/){ # in Daniel, # is used as a "continue line on next line" marker
			$result[$#result] .= $1;
		}
		else{
			push(@result, $buffer[$index] );
		}
		$index++;
	}
	return @result;
}

my @result;



push(@result,"<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n");

push(@result,"<osis xmlns=\"http://www.bibletechnologies.net/2003/OSIS/namespace\"  xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://www.bibletechnologies.net/2003/OSIS/namespace osisCore.2.1.xsd\">\n");

push(@result,"<osisText osisIDWork=\"MT-LXX-Parallel\" xml:lang=\"en\">\n");

push(@result,"
<header>\
  <work osisWork=\"MT-LXX-Parallel\">\
    <title>The Parallel Aligned Hebrew-Aramaic and Greek texts of Jewish Scripture</title>\
    <identifier type=\"OSIS\">MT-LXX-Parallel</identifier>\
    <refSystem>Bible.Tanach</refSystem>\
  </work>\
</header>\n");

	# File				File id			ThML id		OSIS id		Short Book Title
#push(@result, &processBook("01.Genesis.par", "Gen", "Gen", "Gen", "Genesis") );
#push(@result, &processBook("02.Exodus.par", "Exod", "Exod", "Exod", "Exodus") );
#push(@result, &processBook("03.Lev.par", "Lev", "Lev", "Lev", "Leviticus") );
#push(@result, &processBook("04.Num.par", "Num", "Num", "Num", "Numbers") );
#push(@result, &processBook("05.Deut.par", "Deut", "Deut", "Deut", "Deuteronomy") );
#push(@result, &processBookVariant("07.JoshA.par", "JoshA", "Codex Alexandrinus:", "06.JoshB.par", "JoshB", "Codex Vaticanus:", "Josh", "Josh", "Joshua") );
# push(@result, &processBookVariant("09.JudgesA.par", "JudgA", "Codex Alexandrinus:", "08.JudgesB.par", "JudgB", "Codex Vaticanus:", "Judg", "Judg", "Judges") );
  
# push(@result, &processBook("10.Ruth.par", "Ruth", "Ruth", "Ruth", "Ruth") );
# push(@result, &processBook("11.1Sam.par", "1Sam/K", "iSam", "1Sam", "1 Samuel") );
# push(@result, &processBook("12.2Sam.par", "2Sam/K", "iiSam", "2Sam", "2 Samuel") );
# push(@result, &processBook("13.1Kings.par", "1/3Kgs", "iKgs", "1Kgs", "1 Kings") );
# push(@result, &processBook("14.2Kings.par", "2/4Kgs", "iiKgs", "2Kgs", "2 Kings") );
# push(@result, &processBook("15.1Chron.par", "1Chr", "iChr", "1Chr", "1 Chronicles") );
# push(@result, &processBook("16.2Chron.par", "2Chr", "iiChr", "2Chr", "2 Chronicles") );
# push(@result, &processBook("18.Ezra.par", "Ezr", "Ezra", "Ezra", "Ezra") );
# push(@result, &processBook("19.Neh.par", "Neh", "Neh", "Neh", "Nehemiah") );
# push(@result, &processBook("18.Esther.par", "Esth", "Esth", "Esth", "Esther") );
# push(@result, &processBook("26.Job.par", "Job", "Job", "Job", "Job") );
#  
#push(@result, &processBook("20.Psalms.par", "Ps", "Ps", "Ps", "Psalms"));
#  
# push(@result, &processBook("23.Prov.par", "Prov", "Prov", "Prov", "Proverbs") );
# push(@result, &processBook("24.Qoh.par", "Qoh", "Eccl", "Eccl", "Ecclesiastes") );
# push(@result, &processBook("25.Cant.par", "Song", "Song", "Song", "Song of Solomon") );
# push(@result, &processBook("40.Isaiah.par", "Isa", "Isa", "Isa", "Isaiah") );
# push(@result, &processBook("41.Jer.par", "Jer", "Jer", "Jer", "Jeremiah") );
# push(@result, &processBook("43.Lam.par", "Lam", "Lam", "Lam", "Lamentations") );
# push(@result, &processBook("44.Ezekiel.par", "Ezek", "Ezek", "Ezek", "Ezekiel") );
 
# push(@result, &processBookVariant("45.DanielOG.par", "Dan", "Old Greek:", "46.DanielTh.par", "DanTh", "Theodotion:", "Dan", "Dan", "Daniel"));
 
# push(@result, &processBook("28.Hosea.par", "Hos", "Hos", "Hos", "Hosea") );
# push(@result, &processBook("31.Joel.par", "Joel", "Joel", "Joel", "Joel") );
# push(@result, &processBook("30.Amos.par", "Amos", "Amos", "Amos", "Amos") );
# push(@result, &processBook("33.Obadiah.par", "Obad", "Obad", "Obad", "Obadiah") );
push(@result, &processBook("32.Jonah.par", "Jonah", "Jonah", "Jonah", "Jonah") );
# push(@result, &processBook("29.Micah.par", "Mic", "Mic", "Mic", "Micah") );
# push(@result, &processBook("34.Nahum.par", "Nah", "Nah", "Nah", "Nahum") );
# push(@result, &processBook("35.Hab.par", "Hab", "Hab", "Hab", "Habakkuk") );
# push(@result, &processBook("36.Zeph.par", "Zeph", "Zeph", "Zeph", "Zephaniah") );
# push(@result, &processBook("37.Haggai.par", "Hag", "Hag", "Hag", "Haggai") );
# push(@result, &processBook("38.Zech.par", "Zech", "Zech", "Zech", "Zechariah") );
# push(@result, &processBook("39.Malachi.par", "Mal", "Mal", "Mal", "Malachi") );

push(@result, "</osisText>\n</osis>");

open( OUTPUT, ">mt-lxx-par.osis.xml" );
print( OUTPUT join("\n", @result) );