texttobrall2_reading.pl

% ['../Text-to-Breasonings/text_to_breasonings.pl'].
% W is 50*4,texttobr2(u,u,u,u,false,false,false,false,false,false,W)
% where W is the number of words to read
% and there are approximately 4 words per algorithm.

%% Important: See instructions for using texttobr.pl at https://lucianpedia.wikia.com/wiki/Instructions_for_Using_texttobr(2).pl .

%% use_module(library(pio)). %% In la_strings
%% use_module(library(dcg/basics)). %% In la_strings

%% texttobr2 - converts file stream to dimensions of objects represented by the words
%% has object name as separate field for new users of texttobr to verify breasonings by hand
%% brdict1.txt contains word and object name, brdict2.txt contains object name and x, y and z

%% texttobr2(Runs,File,StringtoBreason,BreasoningLimit).
:- include('../Text-to-Breasonings/mergetexttobrdict.pl').
%:- include('../listprologinterpreter/la_strings').

%% Brth is true or false
texttobr2(N1,Filex1,Stringx1,M1) :-
	texttobr2(N1,Filex1,Stringx1,M1,false,false,false,false,false,false,0,[auto,off]),!.

texttobr2(N1,Filex1,Stringx1,M1,[auto,Auto]) :-
	texttobr2(N1,Filex1,Stringx1,M1,false,false,false,false,false,false,0,[auto,Auto]),!.
texttobr2(N1,Filex1,Stringx1,M1,Brth,Room,PartOfRoom,Direction,
		ObjectToPrepare,ObjectToFinish) :-
	texttobr2(N1,Filex1,Stringx1,M1,Brth,Room,
	PartOfRoom,Direction,ObjectToPrepare,ObjectToFinish,0,[auto,off]).
	
texttobr2(N1,Filex1,Stringx1,M1,Brth,Room,PartOfRoom,Direction,
		ObjectToPrepare,ObjectToFinish,[auto,Auto]) :-
	texttobr2(N1,Filex1,Stringx1,M1,Brth,Room,
	PartOfRoom,Direction,ObjectToPrepare,ObjectToFinish,0,[auto,Auto]),!.

texttobr2(N1,Filex1,Stringx1,M1,Brth,Room,PartOfRoom,Direction,
		ObjectToPrepare,ObjectToFinish,W) :-
	texttobr2(N1,Filex1,Stringx1,M1,Brth,Room,
	PartOfRoom,Direction,ObjectToPrepare,ObjectToFinish,0,[auto,off]).
		
texttobr2(N1,Filex1,Stringx1,M1,Brth,Room,PartOfRoom,Direction,ObjectToPrepare,ObjectToFinish,Words_to_read,[auto,Auto]) :-
	retractall(auto(_)),
	assertz(auto(Auto)),

(Stringx1=""->true;
(	retractall(complete_display(_)),
	assertz(complete_display(false)),

	retractall(words_to_read(_)),
	assertz(words_to_read(Words_to_read)),
	
	((number(N1),N=N1)->true;
	(N1=u,N=1)),

	((Filex1=u,Filex="../Text-to-Breasonings/file.txt")->true;
	Filex=Filex1),

	((number(M1),M=M1)->true;
	M=all), %% If m1 is undefined or all then m=all

	prep(List1,BrDict03,BrDict03t,Filex,Stringx1,M,Brth,BrthDict03,Room,RoomDict03,PartOfRoom,PartOfRoomDict03,Direction,DirectionDict03,ObjectToPrepare,ObjectToPrepareDict03,ObjectToFinish,ObjectToFinishDict03),
	
	retractall(n(_)),
	assertz(n(N)),	
	
	retractall(brDict03(_)),
	assertz(brDict03(BrDict03)),

	retractall(brDict03t(_)),
	assertz(brDict03t(BrDict03t)),

br2(List1,N),%,BrDict03,BrDict2,BrDict03t,BrDict03t2,N,Brth,BrthDict03,BrthDict04,Room,RoomDict03,RoomDict04,PartOfRoom,PartOfRoomDict03,PartOfRoomDict04,Direction,DirectionDict03,DirectionDict04,ObjectToPrepare,ObjectToPrepareDict03,ObjectToPrepareDict04,ObjectToFinish,ObjectToFinishDict03,ObjectToFinishDict04),

brDict031(BrDict2),
brDict03t1(BrDict03t2),
	sort(BrDict2,BrDict3),
	(BrDict03=BrDict3->true;
	(open_s("../Text-to-Breasonings/brdict1.txt",write,Stream),
%%	string_codes(BrDict3),
	write(Stream,BrDict3),
	close(Stream))),

	sort(BrDict03t2,BrDict03t3),
	(BrDict03t=BrDict03t3->true;
	(open_s("../Text-to-Breasonings/brdict2.txt",write,Stream2),
%%	string_codes(BrDict3),
	write(Stream2,BrDict03t3),
 	close(Stream2))),
 	
 	/*
 	((Brth=true,
 	sort(BrthDict04,BrthDict044),
	(BrthDict03=BrthDict044->true;
	(open_s("../Text-to-Breasonings/brthdict.txt",write,Stream3),
%%	string_codes(BrDict3),
	write(Stream3,BrthDict044),
 	close(Stream3))))->true;true),
 	
 	((Room=true,
 	sort(RoomDict04,RoomDict044),
	(RoomDict04=RoomDict044->true;
	(open_s("../Text-to-Breasonings/roomdict.txt",write,Stream4),
%%	string_codes(BrDict3),
	write(Stream4,RoomDict044),
 	close(Stream4))))->true;true),

 	((PartOfRoom=true,
 	sort(PartOfRoomDict04,PartOfRoomDict044),
	(PartOfRoomDict04=PartOfRoomDict044->true;
	(open_s("../Text-to-Breasonings/partofroomdict.txt",write,Stream5),
%%	string_codes(BrDict3),
	write(Stream5,PartOfRoomDict044),
 	close(Stream5))))->true;true),

 	((Direction=true,
 	sort(DirectionDict04,DirectionDict044),
	(DirectionDict04=DirectionDict044->true;
	(open_s("../Text-to-Breasonings/directiondict.txt",write,Stream6),
%%	string_codes(BrDict3),
	write(Stream6,DirectionDict044),
 	close(Stream6))))->true;true),

 	((ObjectToPrepare=true,
 	sort(ObjectToPrepareDict04,ObjectToPrepareDict044),
	(ObjectToPrepareDict04=ObjectToPrepareDict044->true;
	(open_s("../Text-to-Breasonings/objecttopreparedict.txt",write,Stream7),
%%	string_codes(BrDict3),
	write(Stream7,ObjectToPrepareDict044),
 	close(Stream7))))->true;true),

 	((ObjectToFinish=true,
 	sort(ObjectToFinishDict04,ObjectToFinishDict044),
	(ObjectToFinishDict04=ObjectToFinishDict044->true;
	(open_s("../Text-to-Breasonings/objecttofinishdict.txt",write,Stream8),
%%	string_codes(BrDict3),
	write(Stream8,ObjectToFinishDict044),
 	close(Stream8))))->true;true),
 	*/
 	
 	length(List1,List1_length_a),
 	List1_length_a1 is List1_length_a*N,
 	t2b_br_adder(List1_length_a1),
 	Dividend_a is ceiling(List1_length_a/250),
 	Dividend_b is Dividend_a*3, % for graciously giving
 	texttobr2_a(Dividend_b,meditation),
 	texttobr2_a(Dividend_b,medicine),
 	texttobr2_a(Dividend_b,pedagogy)
 	)),
 	
 	!.


replace0(Input,Find,Replace,SepandPad,M,Output0) :-
	replace00(Input,Find,Replace,SepandPad,[],Output1),
	truncate(Output1,M,Output0),!.
replace00([],_Find,_Replace,_SepandPad,Input,Input) :- !.
replace00(Input1,Find,Replace,SepandPad,Input2,Input3) :-
	Input1=[Input4|Input5],
	string_codes(Input4,String1),
	replace1(String1,Find,Replace,[],Input7),
	string_codes(Output,Input7),
	split_string(Output,SepandPad,SepandPad,Input8),
	append(Input2,Input8,Input9),
	replace00(Input5,Find,Replace,SepandPad,Input9,Input3), !.
replace1([],_Find,_Replace,Input,Input) :- !.
replace1(Input1,Find,Replace,Input2,Input3) :-
	Input1=[Input4|Input5],
	member(Input4,Find),
	append(Input2,[Replace],Input6),
	replace1(Input5,Find,Replace,Input6,Input3), !.
replace1(Input1,Find,Replace,Input2,Input3) :-
	Input1=[Input4|Input5],
	not(member(Input4,Find)),
	append(Input2,[Input4],Input6),
	replace1(Input5,Find,Replace,Input6,Input3), !.

split_string_onnonletter(String00,List1) :-
	string_codes(String00,String1),
	split_string_onnonletter(String1,[],List0),
	string_codes(List0,List2),
	split_string(List2," "," ",List1),!.
split_string_onnonletter([],Input,Input) :- !.
split_string_onnonletter(Input1,Input2,Input3) :-
	Input1=[Input4|Input5],
	not(char_type(Input4,alpha)),
	append(Input2,[32],Input6),
	split_string_onnonletter(Input5,Input6,Input3), !.
split_string_onnonletter(Input1,Input2,Input3) :-
	Input1=[Input4|Input5],
	char_type(Input4,alpha),
	append(Input2,[Input4],Input6),
	split_string_onnonletter(Input5,Input6,Input3), !.

%% Truncates the list if m is not undefined and m is greater than or equal to the length of string0
truncate(List1,M,String0) :-
	((number(M),length(String0,M),
	append(String0,_,List1))->true;
	String0=List1),!.
	
	
	
prep(List,BrDict03,BrDict03t,Filex,Stringx1,M,Brth,BrthDict03,Room,RoomDict03,PartOfRoom,PartOfRoomDict03,Direction,DirectionDict03,ObjectToPrepare,ObjectToPrepareDict03,ObjectToFinish,ObjectToFinishDict03) :-

concurrent(2,[(
	phrase_from_file_s(string(BrDict0), "../Text-to-Breasonings/brdict1.txt"),
	%%Chars="’",
	SepandPad="&#@~%`$?-+*^,()|.:;=_/[]<>{}\n\r\s\t\\\"!'0123456789",
	%%split_string(BrDict0,SepandPad,SepandPad,BrDict01),
%%writeln([brDict0,BrDict0]),
%%writeln([brdict1]),
	splitfurther(BrDict0,BrDict01),
%%writeln([brDict01,BrDict01]),
	%%char_code(Escape,27),
	%%delete(BrDict01,[Escape,_,_,_,_],BrDict021),
%%writeln([brDict021,BrDict021]),
	%%char_code(Apostrophe,8217),
	%%delete(BrDict021,[Apostrophe,_,_,_,_],BrDict02),
%%writeln([brDict02,BrDict02]),
	sort(BrDict01,BrDict03),
%%writeln([brDict03,BrDict03]),
	length(BrDict03,Length0),write("Number of words in dictionary: "), writeln(Length0)
	),(
	%%writeln(''),
	%%writeln([brdict2]),
	phrase_from_file_s(string(BrDict0t), "../Text-to-Breasonings/brdict2.txt"),
	%%Chars="’",
	%%split_string(BrDict0,SepandPad,SepandPad,BrDict01),
%%writeln([brDict0,BrDict0]),
	splitfurthert(BrDict0t,BrDict01t),
%%writeln([brDict01,BrDict01]),
	%%delete(BrDict01t,[Escape,_,_,_,_],BrDict021t),
%%writeln([brDict021,BrDict021]),
	%%delete(BrDict021t,[Apostrophe,_,_,_,_],BrDict02t),
%%writeln([brDict02,BrDict02]),
	sort(BrDict01t,BrDict03t),
	
% br_freq		%B=BrDict03t,A=BrDict03,findall([DL,C,"\n"],(member([C,_,_,_],B),findall(_,member([_,C],A),D),length(D,DL)),E),sort(E,F),reverse(F,G),writeln([br_freq,G]),

%%writeln([brDict03,BrDict03]),
	length(BrDict03t,Length0t),write("Number of unique breasonings in dictionary: "), writeln(Length0t)
	)],[]),
	
	((Stringx1=u,
	phrase_from_file_s(string(String001), Filex))->true;
	String001=Stringx1),
	
	process_t2b(String001,String00),
	
	split_string(String00,SepandPad,SepandPad,List1),
	%%split_string_onnonletter(String00,List1),

	truncate(List1,M,List),

	/**replace0(String0,[8221, 8220], 34, SepandPad, M, String1),
	replace0(String1,[8216, 8217], 39, SepandPad, M, String2),
	replace0(String2,[8259, 8211, 8212], 45, SepandPad, M, String3),
	replace0(String3,[160], 32, SepandPad, M, List),
	**/

%%atom_codes(Atom999,String),writeln([atom999,Atom999]),

%%writeln([list,List]),
	%%delete(List,Escape,List11),
%%writeln([list11,List11]),
	%%delete(List11,Apostrophe,List1),
%%writeln([list1,List1]),
	length(List,Length1),write("Number of words to breason out in file: "), writeln(Length1),
	sort(List,List2),
%%writeln([list2,List2]),
	length(List2,Length2),write("Number of unique words in file: "), writeln(Length2),
	
	
	
	((Brth=true,
		phrase_from_file_s(string(BrthDict0), "../Text-to-Breasonings/brthdict.txt"),		splitfurther(BrthDict0,BrthDict01),
	sort(BrthDict01,BrthDict03),
	length(BrthDict03,BrthLength0),write("Number of unique breathsonings in dictionary: "), writeln(BrthLength0))->true;true),
	
	
	((Room=true,
		phrase_from_file_s(string(RoomDict0), "../Text-to-Breasonings/roomdict.txt"),		splitfurther(RoomDict0,RoomDict01),
	sort(RoomDict01,RoomDict03),
	length(RoomDict03,RoomLength0),write("Number of unique rooms in dictionary: "), writeln(RoomLength0))->true;true),

	((PartOfRoom=true,
		phrase_from_file_s(string(PartOfRoomDict0), "../Text-to-Breasonings/partofroomdict.txt"),		splitfurther(PartOfRoomDict0,PartOfRoomDict01),
	sort(PartOfRoomDict01,PartOfRoomDict03),
	length(PartOfRoomDict03,PartOfRoomLength0),write("Number of unique parts of rooms in dictionary: "), writeln(PartOfRoomLength0))->true;true),

	((Direction=true,
		phrase_from_file_s(string(DirectionDict0), "../Text-to-Breasonings/directiondict.txt"),		splitfurther(DirectionDict0,DirectionDict01),
	sort(DirectionDict01,DirectionDict03),
	length(DirectionDict03,DirectionLength0),write("Number of unique directions in dictionary: "), writeln(DirectionLength0))->true;true),

	((ObjectToPrepare=true,
		phrase_from_file_s(string(ObjectToPrepareDict0), "../Text-to-Breasonings/objecttopreparedict.txt"),		splitfurther(ObjectToPrepareDict0,ObjectToPrepareDict01),
	sort(ObjectToPrepareDict01,ObjectToPrepareDict03),
	length(ObjectToPrepareDict03,ObjectToPrepareLength0),write("Number of unique objects to prepare in dictionary: "), writeln(ObjectToPrepareLength0))->true;true),

	((ObjectToFinish=true,
		phrase_from_file_s(string(ObjectToFinishDict0), "../Text-to-Breasonings/objecttofinishdict.txt"),		splitfurther(ObjectToFinishDict0,ObjectToFinishDict01),
	sort(ObjectToFinishDict01,ObjectToFinishDict03),
	length(ObjectToFinishDict03,ObjectToFinishLength0),write("Number of unique objects to finish in dictionary: "), writeln(ObjectToFinishLength0))->true;true),

(complete_display(true)->
	((Stringx1=u, %% Use file, not string as input.
	
	%%maplist(downcase_atom, List2, List3),
	maplist(string_lower, List2, List3),
	
%%writeln([list3,List3]),
	towords3(BrDict03,[],BrDict04,[],_ObjectNames,[],AllUsedNames),
	towords2(BrDict03t,[],BrDict04t),

%%writeln([brDict04,BrDict04]),
	subtract(List3,BrDict04,D1),
%%writeln([list3,brDict04,d1,List3,BrDict04,D1]),
%%writeln(["subtract(BrDict04,List3,D1).",List3,BrDict04,D1]),	
	length(D1,Length01),Difference is abs(Length01),write("Number of words remaining to define: "), writeln(Difference),

	subtract(AllUsedNames,BrDict04t,D2),
	%%delete(D21,'',D2),
	length(D2,Length01t),Differencet is abs(Length01t),write("Number of undefined breasonings: "), writeln(Differencet),
	%% writeln([undefinedbreasonings,D2]), %% Print undefined breasonings

	%%delete(D31,'',D3),
	subtract(BrDict04t,AllUsedNames,D3),
	length(D3,Length01t2),Differencet2 is abs(Length01t2),write("Number of orphaned breasonings: "), writeln(Differencet2),
	
		%%,writeln([orphanedbreasonings,D3]) %% Print orphaned breasonings
	
	((Brth=true,
	
		%%towords3(BrDict03,[],BrDict04,[],_ObjectNames,[],AllUsedNames),
	towords2a(BrthDict03,[],BrtDict04t),

	%%subtract(List3,BrtDict04t,Dt1),
	%%length(Dt1,Lengtht01),Differencet1 is abs(Lengtht01),write("Number of words remaining to define breathsonings for: "), writeln(Differencet1),
	%%writeln(["Number of words remaining to define breathsonings for",Dt1]), %% Print number of words remaining to define breathsonings for

	subtract(AllUsedNames,BrtDict04t,Dt2),
	length(Dt2,Lengtht01t),Differencet22 is abs(Lengtht01t),write("Number of undefined breathsonings: "), writeln(Differencet22),
	%%writeln([undefinedbreathsonings,Dt2]), %% Print undefined breathsonings

	subtract(BrtDict04t,AllUsedNames,Dt3),
	length(Dt3,Lengtht01t2),Differencet3 is abs(Lengtht01t2),write("Number of orphaned breathsonings: "), writeln(Differencet3)
	
		%%writeln([orphanedbreathsonings,Dt3]) %% Print orphaned breathsonings
	
		)->true;true),
		
	((Room=true,
	towords2a(RoomDict03,[],RoomDict04t),
	subtract(AllUsedNames,RoomDict04t,RoomDt2),
	length(RoomDt2,RoomLengtht01t),RoomDifferencet22 is abs(RoomLengtht01t),write("Number of undefined rooms: "), writeln(RoomDifferencet22),
	%%writeln([undefinedrooms,RoomDt2]), %% Print undefined rooms
	subtract(RoomDict04t,AllUsedNames,RoomDt3),
	length(RoomDt3,RoomLengtht01t2),RoomDifferencet3 is abs(RoomLengtht01t2),write("Number of orphaned rooms: "), writeln(RoomDifferencet3)
		%%writeln([orphanedrooms,RoomDt3]) %% Print orphaned rooms
		)->true;true),

	((PartOfRoom=true,
	towords2a(PartOfRoomDict03,[],PartOfRoomDict04t),
	subtract(AllUsedNames,PartOfRoomDict04t,PartOfRoomDt2),
	length(PartOfRoomDt2,PartOfRoomLengtht01t),PartOfRoomDifferencet22 is abs(PartOfRoomLengtht01t),write("Number of undefined parts of rooms: "), writeln(PartOfRoomDifferencet22),
	%%writeln([undefinedPartsOfRooms,PartOfRoomDt2]), %% Print undefined PartsOfRooms
	subtract(PartOfRoomDict04t,AllUsedNames,PartOfRoomDt3),
	length(PartOfRoomDt3,PartOfRoomLengtht01t2),PartOfRoomDifferencet3 is abs(PartOfRoomLengtht01t2),write("Number of orphaned parts of rooms: "), writeln(PartOfRoomDifferencet3)
		%%writeln([orphanedPartsOfRooms,PartOfRoomDt3]) %% Print orphaned PartsOfRooms
		)->true;true),

	((Direction=true,
	towords2a(DirectionDict03,[],DirectionDict04t),
	subtract(AllUsedNames,DirectionDict04t,DirectionDt2),
	length(DirectionDt2,DirectionLengtht01t),DirectionDifferencet22 is abs(DirectionLengtht01t),write("Number of undefined directions: "), writeln(DirectionDifferencet22),
	%%writeln([undefinedDirections,DirectionDt2]), %% Print undefined Directions
	subtract(DirectionDict04t,AllUsedNames,DirectionDt3),
	length(DirectionDt3,DirectionLengtht01t2),DirectionDifferencet3 is abs(DirectionLengtht01t2),write("Number of orphaned directions: "), writeln(DirectionDifferencet3)
		%%writeln([orphanedDirections,DirectionDt3]) %% Print orphaned Directions
		)->true;true),

	((ObjectToPrepare=true,
	towords2a(ObjectToPrepareDict03,[],ObjectToPrepareDict04t),
	subtract(AllUsedNames,ObjectToPrepareDict04t,ObjectToPrepareDt2),
	length(ObjectToPrepareDt2,ObjectToPrepareLengtht01t),ObjectToPrepareDifferencet22 is abs(ObjectToPrepareLengtht01t),write("Number of undefined objects to prepare: "), writeln(ObjectToPrepareDifferencet22),
	%%writeln([undefinedObjectsToPrepare,ObjectToPrepareDt2]), %% Print undefined ObjectsToPrepare
	subtract(ObjectToPrepareDict04t,AllUsedNames,ObjectToPrepareDt3),
	length(ObjectToPrepareDt3,ObjectToPrepareLengtht01t2),ObjectToPrepareDifferencet3 is abs(ObjectToPrepareLengtht01t2),write("Number of orphaned objects to prepare: "), writeln(ObjectToPrepareDifferencet3)
		%%writeln([orphanedObjectsToPrepare,ObjectToPrepareDt3]) %% Print orphaned ObjectsToPrepare
		)->true;true),

	((ObjectToFinish=true,
	towords2a(ObjectToFinishDict03,[],ObjectToFinishDict04t),
	subtract(AllUsedNames,ObjectToFinishDict04t,ObjectToFinishDt2),
	length(ObjectToFinishDt2,ObjectToFinishLengtht01t),ObjectToFinishDifferencet22 is abs(ObjectToFinishLengtht01t),write("Number of undefined objects to finish: "), writeln(ObjectToFinishDifferencet22),
	%%writeln([undefinedObjectsToFinish,ObjectToFinishDt2]), %% Print undefined ObjectsToFinish
	subtract(ObjectToFinishDict04t,AllUsedNames,ObjectToFinishDt3),
	length(ObjectToFinishDt3,ObjectToFinishLengtht01t2),ObjectToFinishDifferencet3 is abs(ObjectToFinishLengtht01t2),write("Number of orphaned objects to finish: "), writeln(ObjectToFinishDifferencet3)
		%%writeln([orphanedObjectsToFinish,ObjectToFinishDt3]) %% Print orphaned ObjectsToFinish
		)->true;true)

	

)->true;(string(Filex),writeln("Number of words, unique words, unique breathsonings, words remaining to define, undefined breasonings, orphaned breasonings, undefined breathsonings and orphaned breathsonings skipped for speed when breasoning out a string.")));true)

,!.

%n2(N) :-n(N).
brDict031(BrDict2) :- brDict03(BrDict2).
brDict03t1(BrDict03t2) :- brDict03t(BrDict03t2).

br2(List1,N) :-
%br2(_,A,A,B,B,0,_Brth,BrthDict03,BrthDict03,_Room,RoomDict03,RoomDict03,_PartOfRoom,PartOfRoomDict03,PartOfRoomDict03,_Direction,DirectionDict03,DirectionDict03,_ObjectToPrepare,ObjectToPrepareDict03,ObjectToPrepareDict03,_ObjectToFinish,ObjectToFinishDict03,ObjectToFinishDict03) :- !.
%br2(List1,BrDict03,BrDict2,BrDict03t,BrDict03t2,N1,Brth,BrthDict03,BrthDict04,Room,RoomDict03,RoomDict04,PartOfRoom,PartOfRoomDict03,PartOfRoomDict04,Direction,DirectionDict03,DirectionDict04,ObjectToPrepare,ObjectToPrepareDict03,ObjectToPrepareDict04,ObjectToFinish,ObjectToFinishDict03,ObjectToFinishDict04) :-
	
	length(NL,N),
	findall(_,(member(_,NL),
	(auto(on)->
	concurrent_maplist(br,List1,_);
	maplist(br,List1,_))),_),!.
	%***
	
%br(List1,BrDict03,BrDict21,BrDict03t,BrDict03t21,Brth,BrthDict03,BrthDict041,Room,RoomDict03,RoomDict041,PartOfRoom,PartOfRoomDict03,PartOfRoomDict041,Direction,DirectionDict03,DirectionDict041,ObjectToPrepare,ObjectToPrepareDict03,ObjectToPrepareDict041,ObjectToFinish,ObjectToFinishDict03,ObjectToFinishDict041),
	%N2 is N1-1,
	%br2(List1,BrDict21,BrDict2,BrDict03t21,BrDict03t2,N2,Brth,BrthDict041,BrthDict04,Room,RoomDict041,RoomDict04,PartOfRoom,PartOfRoomDict041,PartOfRoomDict04,Direction,DirectionDict041,DirectionDict04,ObjectToPrepare,ObjectToPrepareDict041,ObjectToPrepareDict04,ObjectToFinish,ObjectToFinishDict041,ObjectToFinishDict04),!.

towords2([],A,A) :- !.
towords2(BrDict03,A,B) :-
	BrDict03=[[Word,_,_,_]|Rest],
	%%atom_string(Atom,Word),
	append(A,[Word],C),
	towords2(Rest,C,B).

towords2a([],A,A) :- !.
towords2a(BrDict03,A,B) :-
	BrDict03=[[Word,_]|Rest],
	%%atom_string(Atom,Word),
	append(A,[Word],C),
	towords2a(Rest,C,B).

towords3([],A,A,C,C,D,D) :- !.
towords3(BrDict03,A,B,D,E,G,H) :-
	BrDict03=[[Word1,Word2]|Rest],
	(Word2=""->append(G,[Word1],I)->true;
	append(G,[Word2],I)),
	append(A,[Word1],C),
	append(D,[Word2],F),
	towords3(Rest,C,B,F,E,I,H).

string(String) --> list(String).

list([]) --> [].
list([L|Ls]) --> [L], list(Ls).

splitfurther(BrDict01,N) :-
	   phrase(file0(N),BrDict01).
	
file0(N) --> "[", file(N), "]", !.
file0([]) --> [].

%%file([]) --> [].
file([L|Ls]) --> entry(L),",",
%%{writeln(L)}, %%***
file(Ls), !. %% file(Ls),{M=[Ls]})), !. %%, {writeln(["l",L])},",", file(Ls), {writeln(["ls",Ls])},!. %%, {append(L,Ls,M)}, !.	
file([L]) --> entry(L), 
%%{writeln(L)},
!. %%(entry(L),{M=L});{M=[],(writeln("Warning - Entry in incorrect format.")
%%,abort
%%)}, !.

entry([Word2,Word4]) -->
		"[", word(Word), {string_codes(Word2,Word),string(Word2)},
		",",
           word(Word3), {string_codes(Word4,Word3),string(Word4)},
           "]".

splitfurthert(BrDict01,N) :-
	   phrase(file0t(N),BrDict01).
	
file0t(N) --> "[", filet(N), "]", !.
file0t([]) --> [].

%%file([]) --> [].
filet([L|Ls]) --> entryt(L),",",
%%{writeln(L)}, %%***
filet(Ls), !. %% file(Ls),{M=[Ls]})), !. %%, {writeln(["l",L])},",", file(Ls), {writeln(["ls",Ls])},!. %%, {append(L,Ls,M)}, !.	
filet([L]) --> entryt(L), 
%%{writeln(L)},
!. %%(entry(L),{M=L});{M=[],(writeln("Warning - Entry in incorrect format.")
%%,abort
%%)}, !.

entryt([Word2,X3,Y3,Z3]) -->
		"[", word(Word), {string_codes(Word2,Word),string(Word2)},
		",",
	      digits(X),",",{atom_codes(X2,X),atom_number(X2,X3),number(X3)},
           digits(Y),",",{atom_codes(Y2,Y),atom_number(Y2,Y3),number(Y3)},
           digits(Z),{atom_codes(Z2,Z),atom_number(Z2,Z3),number(Z3)},
           "]".

word([X|Xs]) --> [X], {char_type(X,csymf)->true;(X=27->true;X=8217)}, word(Xs), !.
%%word([X]) --> [X], {char_type(X,csymf);(X=27;X=8217)}, !.
word([]) --> [].

digits([X|Xs]) --> [X], {(char_type(X,digit)->true;(string_codes(Word2,[X]),Word2="."))}, digits(Xs), !.
%%digits([X]) --> [X], {(char_type(X,digit);(string_codes(Word2,[X]),Word2="."))}, !.
digits([]) --> [].

br(Word,_) :-
%[],B,B,C,C,_,D,D,_Room,RoomDict03,RoomDict03,_PartOfRoom,PartOfRoomDict03,PartOfRoomDict03,_Direction,DirectionDict03,DirectionDict03,_ObjectToPrepare,ObjectToPrepareDict03,ObjectToPrepareDict03,_ObjectToFinish,ObjectToFinishDict03,ObjectToFinishDict03) :-
	%!.
%br([Word|Words],BrDict,BrDict2,BrDict4,BrDict5,Brth,BrthDict03,BrthDict04,Room,RoomDict03,RoomDict04,PartOfRoom,PartOfRoomDict03,PartOfRoomDict04,Direction,DirectionDict03,DirectionDict04,ObjectToPrepare,ObjectToPrepareDict03,ObjectToPrepareDict04,ObjectToFinish,ObjectToFinishDict03,ObjectToFinishDict04) :-
	downcase_atom(Word, Word2), atom_string(Word2,Word3),
	
	/*
	words_to_read1(WR1),
	(WR1>0->(writeln(WR1),write(Word),
	texttobr2(3),nl,sleep(0.12),
	WR2 is WR1-1,
	retractall(words_to_read(_)),
	assertz(words_to_read(WR2)));
	true),
	*/
	
	/**member([Word3,X,Y,Z],BrDict4) -> %% This feature is a bug because words in brdict2 shouldn't necessarily be the words in brdict1
	%%(append(BrDict,[[Word3,""]],BrDict3), BrDict3t=BrDict4,
	%%br(Words,BrDict3,BrDict2,BrDict3t,BrDict5))
	%%;
	%%(**/
	
	%%(member([Word3,X,Y,Z],BrDict4) -> %% This feature is a bug because words in brdict1 should correspond to those in brdict2
	%%(atom_concat("The breasoning for ", Word3, P1),
	%%atom_concat(P1, " is defined.  Enter object name (without spaces), if different for ", Prompt));
	%Prompt="Enter object name (without spaces), if different for "),
	
	%%writeln([word3,Word3]),
	brDict031(BrDict),
	
	(member([Word3,String4],BrDict)-> 
	BrDict3=BrDict;
	((repeat,
	write("Enter object name (without spaces), if different for "), writeln(Word3),read_string1("box",user_input, "\n", "\r", _End2, String2),split_string(String2, "", " ", String3),String3=[String4]),
	append(BrDict,[[Word3,String4]],BrDict3),
	texttobr(1,u,String4,1))),
	%%*brth(Word3,_Brth),

(String4=""->String5=Word3;String5=String4),

	downcase_atom(String5, String52), atom_string(String52,String53),

brDict03t1(BrDict4),

	(member([String53,_X,_Y,_Z],BrDict4)->
	BrDict3t1=BrDict4;
	((repeat,
	write("Enter x, y and z in cm for "), writeln(String53),read_string1("1,1,1",user_input, "\n", "\r", _End, String),split_string(String, ",", " ", Values),Values=[X1,Y1,Z1],number_string(X,X1),number_string(Y,Y1),number_string(Z,Z1)),
	append(BrDict4,[[String53,X,Y,Z]],BrDict3t1))),
	%%*brth(String53,_Brth2),
	%%write("br(\'"),write(Word3),writeln("\',)."),
%%	writeln([Word3,X,Y,Z]),
	%%write(' '),
	
	/*
	(Brth=true,(member([String53,_Breathsoning],BrthDict03)-> 
	BrthDict3=BrthDict03;
	((repeat,
	write("Enter human judgement (without spaces), if different for "), writeln(String53),read_string1("good",user_input, "\n", "\r", _End2, Stringth2),split_string(Stringth2, "", " ", Stringth3),Stringth3=[Stringth4]),texttobr(1,u,Stringth4,1),
	append(BrthDict03,[[String53,Stringth4]],BrthDict3)))->true;true),	
	
	(Room=true,(member([String53,_Room],RoomDict03)-> 
	RoomDict3=RoomDict03;
	((repeat,
	write("Enter room (without spaces), if different for "), writeln(String53),read_string1("living",user_input, "\n", "\r", _RoomEnd2, RoomStringth2),split_string(RoomStringth2, "", " ", RoomStringth3),RoomStringth3=[RoomStringth4]),texttobr(1,u,RoomStringth4,1),
	append(RoomDict03,[[String53,RoomStringth4]],RoomDict3)))->true;true),	


	(Room=true,(member([RoomStringth4,_X,_Y,_Z],BrDict3t1)->
	BrDict3t2=BrDict3t1;
	((repeat,
	write("Enter x, y and z in cm for "), writeln(RoomStringth4),read_string1("500,400,300",user_input, "\n", "\r", _End, RoomString),split_string(RoomString, ",", " ", RoomValues),RoomValues=[RoomX1,RoomY1,RoomZ1],number_string(RoomX,RoomX1),number_string(RoomY,RoomY1),number_string(RoomZ,RoomZ1)),
	append(BrDict3t1,[[RoomStringth4,RoomX,RoomY,RoomZ]],BrDict3t2)))->true;BrDict3t2=BrDict3t1),


(PartOfRoom=true,(member([String53,_PartOfRoom],PartOfRoomDict03)-> 
	PartOfRoomDict3=PartOfRoomDict03;
	((repeat,
	write("Enter part of room (without spaces), if different for "), writeln(String53),read_string1("corner",user_input, "\n", "\r", _PartOfRoomEnd2, PartOfRoomStringth2),split_string(PartOfRoomStringth2, "", " ", PartOfRoomStringth3),PartOfRoomStringth3=[PartOfRoomStringth4]),texttobr(1,u,PartOfRoomStringth4,1),
	append(PartOfRoomDict03,[[String53,PartOfRoomStringth4]],PartOfRoomDict3)))->true;true),
	

	(PartOfRoom=true,(member([PartOfRoomStringth4,_X,_Y,_Z],BrDict3t2)->
	BrDict3t3=BrDict3t2;
	((repeat,
	write("Enter x, y and z in cm for "), writeln(PartOfRoomStringth4),read_string1("100,100,300",user_input, "\n", "\r", _End, PartOfRoomString),split_string(PartOfRoomString, ",", " ", PartOfRoomValues),PartOfRoomValues=[PartOfRoomX1,PartOfRoomY1,PartOfRoomZ1],number_string(PartOfRoomX,PartOfRoomX1),number_string(PartOfRoomY,PartOfRoomY1),number_string(PartOfRoomZ,PartOfRoomZ1)),
	append(BrDict3t2,[[PartOfRoomStringth4,PartOfRoomX,PartOfRoomY,PartOfRoomZ]],BrDict3t3)))->true;BrDict3t3=BrDict3t2),

(Direction=true,(member([String53,_Direction],DirectionDict03)-> 
	DirectionDict3=DirectionDict03;
	((repeat,
	write("Enter direction (without spaces), if different for "), writeln(String53),read_string1("table",user_input, "\n", "\r", _DirectionEnd2, DirectionStringth2),split_string(DirectionStringth2, "", " ", DirectionStringth3),DirectionStringth3=[DirectionStringth4]),texttobr(1,u,DirectionStringth4,1),
	append(DirectionDict03,[[String53,DirectionStringth4]],DirectionDict3)))->true;true),
	

	(Direction=true,(member([DirectionStringth4,_X,_Y,_Z],BrDict3t3)->
	BrDict3t4=BrDict3t3;
	((repeat,
	write("Enter x, y and z in cm for "), writeln(DirectionStringth4),read_string1("100,100,100",user_input, "\n", "\r", _End, DirectionString),split_string(DirectionString, ",", " ", DirectionValues),DirectionValues=[DirectionX1,DirectionY1,DirectionZ1],number_string(DirectionX,DirectionX1),number_string(DirectionY,DirectionY1),number_string(DirectionZ,DirectionZ1)),
	append(BrDict3t3,[[DirectionStringth4,DirectionX,DirectionY,DirectionZ]],BrDict3t4)))->true;BrDict3t4=BrDict3t3),
	

(ObjectToPrepare=true,(member([String53,_ObjectToPrepare],ObjectToPrepareDict03)-> 
	ObjectToPrepareDict3=ObjectToPrepareDict03;
	((repeat,
	write("Enter object to prepare (without spaces), if different for "), writeln(String53),read_string1("measure",user_input, "\n", "\r", _ObjectToPrepareEnd2, ObjectToPrepareStringth2),split_string(ObjectToPrepareStringth2, "", " ", ObjectToPrepareStringth3),ObjectToPrepareStringth3=[ObjectToPrepareStringth4]),texttobr(1,u,ObjectToPrepareStringth4,1),
	append(ObjectToPrepareDict03,[[String53,ObjectToPrepareStringth4]],ObjectToPrepareDict3)))->true;true),
	
	
	(ObjectToPrepare=true,(member([ObjectToPrepareStringth4,_X,_Y,_Z],BrDict3t4)->
	BrDict3t5=BrDict3t4;
	((repeat,
	write("Enter x, y and z in cm for "), writeln(ObjectToPrepareStringth4),read_string1("30,1,0.2",user_input, "\n", "\r", _End, ObjectToPrepareString),split_string(ObjectToPrepareString, ",", " ", ObjectToPrepareValues),ObjectToPrepareValues=[ObjectToPrepareX1,ObjectToPrepareY1,ObjectToPrepareZ1],number_string(ObjectToPrepareX,ObjectToPrepareX1),number_string(ObjectToPrepareY,ObjectToPrepareY1),number_string(ObjectToPrepareZ,ObjectToPrepareZ1)),
	append(BrDict3t4,[[ObjectToPrepareStringth4,ObjectToPrepareX,ObjectToPrepareY,ObjectToPrepareZ]],BrDict3t5)))->true;BrDict3t5=BrDict3t4),


(ObjectToFinish=true,(member([String53,_ObjectToFinish],ObjectToFinishDict03)-> 
	ObjectToFinishDict3=ObjectToFinishDict03;
	((repeat,
	write("Enter object to finish (without spaces), if different for "), writeln(String53),read_string1("file",user_input, "\n", "\r", _ObjectToFinishEnd2, ObjectToFinishStringth2),split_string(ObjectToFinishStringth2, "", " ", ObjectToFinishStringth3),ObjectToFinishStringth3=[ObjectToFinishStringth4]),texttobr(1,u,ObjectToFinishStringth4,1),
	append(ObjectToFinishDict03,[[String53,ObjectToFinishStringth4]],ObjectToFinishDict3)))->true;true),
	

	(ObjectToFinish=true,(member([ObjectToFinishStringth4,_X,_Y,_Z],BrDict3t5)->
	BrDict3t6=BrDict3t5;
	((repeat,
	write("Enter x, y and z in cm for "), writeln(ObjectToFinishStringth4),read_string1("20,30,0.0001",user_input, "\n", "\r", _End, ObjectToFinishString),split_string(ObjectToFinishString, ",", " ", ObjectToFinishValues),ObjectToFinishValues=[ObjectToFinishX1,ObjectToFinishY1,ObjectToFinishZ1],number_string(ObjectToFinishX,ObjectToFinishX1),number_string(ObjectToFinishY,ObjectToFinishY1),number_string(ObjectToFinishZ,ObjectToFinishZ1)),
	append(BrDict3t5,[[ObjectToFinishStringth4,ObjectToFinishX,ObjectToFinishY,ObjectToFinishZ]],BrDict3t6)))->true;BrDict3t6=BrDict3t5),

*/

retractall(brDict03(_)),
assertz(brDict03(BrDict3)),

retractall(brDict03t(_)),
assertz(brDict03t(BrDict3t1)),!.

%br(Words,BrDict3,BrDict2,BrDict3t6,BrDict5,Brth,BrthDict3,BrthDict04,Room,RoomDict3,RoomDict04,PartOfRoom,PartOfRoomDict3,PartOfRoomDict04,Direction,DirectionDict3,DirectionDict04,ObjectToPrepare,ObjectToPrepareDict3,ObjectToPrepareDict04,ObjectToFinish,ObjectToFinishDict3,ObjectToFinishDict04).
	%%).
brth(_,sweetinvincibleandprayedfor).

%% finds unknown words, asks for their br in form "n of m: word", verify, (can go back x) append and sort, save
read_string1(S,user_input, "\n", "\r", _End, ObjectToFinishString) :-
 (auto(on)->S=ObjectToFinishString;
 read_string(user_input, "\n", "\r", _End, ObjectToFinishString)),!.


process_t2b(A,C) :-
 replace_t2b(Replacements),
 atom_string(A1,A),
 replace1_t2b(Replacements,A1,D1),
 atom_string(D1,C),!.
 
replace1_t2b([],A,A) :- !.
replace1_t2b(Replacements,A,D) :-
 Replacements=[[B,C]|G],
 atomic_list_concat(E,B,A),
 atomic_list_concat(E,C,F),
 replace1_t2b(G,F,D),!.

	replace_t2b([['\\',''],['–',' '],['—',' '],['“','\''],['”','\''],['‘','\''],['’','\''],['⁃','-']]).