Quantum Box Algorithm

/** Quantum Box - Automates the Patient's Daily Self Treatment
WARNING: May cause health problems if not practised properly.  Read this comment before using.
TextToBr Instructions
Use the computer as an extension of yourself to breason out texts.
Glossary: Breasoning is thinking of the x, y and z measurements in metres of an object in a sentence.
1. Perform the following Daily Regimen, containing meditation, pedagogy and medicine preparation.
Meditation
You can naturally prevent a headache by silently repeating the mantra, "lucian" for twenty, minutes, twice per day. The mantra becomes lighter and lighter, until one forgets the thought, clearing the mind.  Also, silently repeat the sutra "green" for twenty minutes, twice per day after two months of using the mantra in the morning and evening.  Also, pray for no digestive system pops from practising the sutra each day.
One should also silently repeat 80 arem mantras and 80 friendliness sutras once per day.
Quantum Box and Nut and Bolt
Quantum Box
The quantum box is a guided meditation that I will describe later that prevents headaches, (relaxes head and neck muscles), and prevents muscle aches and pains.  In it, you can make anything (e.g. a headache) instantly disappear, based on quantum physics (where at the quantum level, things may disappear if we want them to). 
Nut and Bolt
The nut and bolt is a guided meditation that is a more detailed prevention of problems the Quantum Box prevents.  In it, pretend to unscrew a nut from a long thin bolt each day to prevent a headache, etc.
Daily Regimen
I recommend Yoga and Qi Gong.
Indicate 2 radio buttons (one for each of the following ideas, and one for each of these ideas working anyway, where a radio button is indicated by breasoning out, or thinking of the x, y and z dimensions of a counter, 0.01, 0.01, 0.005 metres).
Too (just say “too” for each idea following to indicate the two radio buttons)
meditation (80 lucian mantras and 80 green sutras)
Also for the following, which also have quantum box and nut and bolt:
No digestive system pops from practising the sutra
Also for the following, which also have quantum box and nut and bolt:
Protector from Headache in Meditation after Honours Study, etc.
Also for the following, which also have quantum box and nut and bolt:
No headache
The following turn off headaches etc.
Also for the following, which also have quantum box and nut and bolt:
Turn off workload from all employees including you below you, 
Also for the following, which also have quantum box and nut and bolt:
Detect and turn off workloads using manager algorithm. (The self does the As, turning off the workloads.)
Also for the following, which also have quantum box and nut and bolt:
Detect and turn off workloads using manager network. (The others help finish the As, turning off the workloads.)
Also for the following, which also have quantum box and nut and bolt:
No muscle aches/pains
2. One-off, breason out 250 characters from Lecturer Training, to be able to breason out anything you want, not just found out breasonings.
“Lecturer (all in this document)
    1.    I collected the comments.
    2.    I wrote the formula.
    3.    I wrote the input.
    4.    I wrote the output.
    5.    I had the rights to government.
    6.    I had the rights to the state.
    7.    I had the rights to vote.
    8.    I amalgamated the b”
3. One-off, breason out 250 characters from Recordings Training, to be able to indicate that breasonings are implicitly breasoned out for you.
“Recordings from 30 As 1
    1.    I meditated on the day I produced recordings.
    2.    I confirmed training.
    3.    Recordings relate to the rest of pedagogy.
    4.    The delegator matched recordings (workloads) with different recordings.
    5.    I endorsed the 5*50 As pract”
“Too”: 5 symbolic strawberries (each is 0.01, 0.01, 0.01 cm) for Recordings to work.
4. Each day, prepare for using texttobr[1/2]:
Realise the hand breasoning switch is done for you each day from the first time you switch it on, doing the following:
Use only ONE of the following plans.  It is recommended to progress through plans 1-3, for at least one month each.  Commence instructions at 8 AM at the earliest.  Warning: Not following these instructions when using texttobr[1/2] can results in hemorrhoids, eyelid twitches and eyelid itchiness.
Note: In the following, 250 characters from Job Medicine are:
“I relaxed my whole body.  I had a bath.  I ran the water.  I stepped into the bath.  I enjoyed the bath.
I played the game.  I massaged myself.  I massaged my neck.  I massaged my shoulders.  I felt good.
I had a hot bath.  I ran the water.  I turned t”
Plan 1: 
Every Monday and Thursday:
1. Prepare the radio button: Accredited, at the time, turned off (to make accreditation acceptable) CS, breathsoned, VET, sales, education for the following.
2. The next step means that you are seen as breasoning out text before texttobr, computer housing the breasonings, 250 breasonings per waking hour for 16 hours, stopping at midnight (from word breasonings first), no medical problems from it.
3. Breason out a radio button (0.01, 0.01, 0.005 cm).
4. Hand-breason out (not use texttobr[1/2] for) 250 characters from Job Medicine.
Plan 2:
Every Monday and Thursday:
1. Prepare the radio button: Accredited, at the time, turned off (to make accreditation acceptable) CS, breathsoned, VET, sales, education for the following.
2. The next step means that you are seen as breasoning out text before texttobr, computer housing the breasonings, 200 breasonings per waking hour for 16 hours, stopping at midnight (from word breasonings first), no medical problems from it.
3. Breason out a radio button (0.01, 0.01, 0.005 cm).
4. Hand-breason out (not use texttobr[1/2] for) 250 characters from Job Medicine.
Every other day:
1. Prepare the radio button: Accredited, at the time, turned off (to make accreditation acceptable) CS, breathsoned, VET, sales, education for the following.
2. The next step means that you are seen as breasoning out text before texttobr, computer housing the breasonings, 250 breasonings per waking hour for 1 hour (from word breasonings first), no medical problems from it.
3. Breason out a radio button (0.01, 0.01, 0.005 cm).
4. Hand-breason out (not use texttobr[1/2] for) 250 characters from Job Medicine.
Plan 3:
Every day:
1. Prepare the radio button: Accredited, at the time, turned off (to make accreditation acceptable) CS, breathsoned, VET, sales, education for the following.
2. The next step means that you are seen as breasoning out text before texttobr, computer housing the breasonings, 70 breasonings per waking hour for 16 hours, stopping at midnight (from word breasonings first), no medical problems from it.
3. Breason out a radio button (0.01, 0.01, 0.005 cm).
4. Hand-breason out (not use texttobr[1/2] for) 250 characters from Job Medicine.
INSTRUCTIONS
Type "qb." to run.
 **/
qb :-
writeln("50 As per Organ"),
texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,
texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,texttobr2qbpl,
texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,
texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,texttobrqbpl,
writeln("Quantum Box for: The heart"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: heart muscles"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: continually circulating blood around the body"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: knowing your heart is working because you can feel your heart beat"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: feeling the blood at your pulse"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: pumping blood containing new oxygen to every part of your body"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: pumping the old blood without oxygen back through the lungs where it picks up new oxygen to repeat this cycle"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other heart function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The heart should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: heart muscles should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: continually circulating blood around the body should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: knowing your heart is working because you can feel your heart beat should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: feeling the blood at your pulse should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: pumping blood containing new oxygen to every part of your body should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: pumping the old blood without oxygen back through the lungs where it picks up new oxygen to repeat this cycle should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other heart medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The lungs"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: breathing"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering oxygen from the air through tiny vessels into the blood"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: carrying oxygen to the heart to be pumped round your body"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering carbon dioxide from your body when you breathe out"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other lungs function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The lungs should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: breathing should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering oxygen from the air through tiny vessels into the blood should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: carrying oxygen to the heart to be pumped round your body should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering carbon dioxide from your body when you breathe out should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other lungs medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The liver"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering the blood"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering chemicals and impurities"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: including from drugs and medications"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: making and processes many body fats and the liver regrowing"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other liver function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The liver should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering the blood should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering chemicals and impurities should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: including from drugs and medications should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: making and processes many body fats and the liver regrowing should be kept going and not have blocks should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other liver medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The kidneys"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: the kidneys filtering"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering some drugs and filtering waste products that leave the body as urine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other kidneys function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The kidneys should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: the kidneys filtering should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: filtering some drugs and filtering waste products that leave the body as urine should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other kidneys medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The stomach and intestines"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: starting to break down and process food, drink and oral medications in the body and absorbing nutrients and drugs through the stomach and small intestine walls "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other stomach and intestines function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The stomach and intestines should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: starting to break down and process food, drink and oral medications in the body and absorbing nutrients and drugs through the stomach and small intestine walls should be kept going and not have blocks.  "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other stomach and intestines medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The thymus"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: developing CD4 cells and other white blood cells"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other thymus function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The thymus should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: developing CD4 cells and other white blood cells should be kept going and not have blocks.  "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other thymus medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The pancreas"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: releasing digestive enzymes into the small intestine and hormones that control sugar levels in your blood "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: in that case, living without a pancreas by taking insulin to regulate blood sugar levels and taking supplementary digestive enzymes"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other pancreas function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The pancreas should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: releasing digestive enzymes into the small intestine and hormones that control sugar levels in your blood "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: in that case, living without a pancreas by taking insulin to regulate blood sugar levels and taking supplementary digestive enzymes should be kept going and not have blocks.  "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other pancreas medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The skin"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: stopping your body from drying out and being the main barrier against infection"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other skin function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The skin should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: stopping your body from drying out and being the main barrier against infection should be kept going and not have blocks.  "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other skin medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The bones"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: 10% of bone being replaced each year"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other bones function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The bones should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: 10% of bone being replaced each year should be kept going and not have blocks. "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other bones medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Bone marrow"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: blood cells originally coming from bone marrow"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other bone marrow function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Bone marrow should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: blood cells originally coming from bone marrow should be kept going and not have blocks. "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other bone marrow medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Blood"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: blood pumped by your heart"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: delivering oxygen and nutrients to every part of your body and carrying waste products away"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: blood cells (red cells, white cells, platelets etc) and plasma"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other blood function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Blood should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: blood pumped by your heart should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: delivering oxygen and nutrients to every part of your body and carrying waste products away should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: blood cells (red cells, white cells, platelets etc) and plasma should be kept going and not have blocks. "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other blood medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Plasma "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: its nutrients, sugars, proteins, minerals, enzymes, and other substances but with the blood cells taken out "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other plasma function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Plasma should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: its nutrients, sugars, proteins, minerals, enzymes, and other substances but with the blood cells taken out should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other plasma medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Lymph"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: its white blood cells and antibodies"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: the lymph vessels, nodes, and organs and removing waste products from the body"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other lymph function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Lymph should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: its white blood cells and antibodies should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: the lymph vessels, nodes, and organs and removing waste products from the body should be kept going and not have blocks"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other lymph medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The lymph nodes"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: the CD4 cells in your body resting and reproducing in your lymph nodes "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other lymph nodes function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: The lymph nodes"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: the CD4 cells in your body resting and reproducing in your lymph nodes "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other lymph nodes medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other organs' function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other organs' medicine"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your heart does not beat unless your brain and nervous system tell it to do so. "),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your heart beating because your brain and nervous system tell it to do so should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your skeletal system relies on the nutrients it gains from your digestive system to build strong, healthy bones."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your skeletal system relying on the nutrients it gains from your digestive system to build strong, healthy bones should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your cardiovascular system works to circulate your blood."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your cardiovascular system should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your respiratory system introduces oxygen into your body."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your respiratory system introducing oxygen into your body should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your heart pumping blood through a complex network of blood vessels, your blood circulating through your digestive system and picking up nutrients your body absorbed from your last meal, your blood carrying oxygen inhaled by the lungs, your circulatory system delivering oxygen and nutrients to the other cells of your body picking up any waste products created by these cells including carbon dioxide, and delivering these waste products to the kidneys and lungs for disposal and the circulatory system carrying hormones from the endocrine system, and the immune system's white blood cells that fight off infection"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your heart pumping blood through a complex network of blood vessels, your blood circulating through your digestive system and picking up nutrients your body absorbed from your last meal, your blood carrying oxygen inhaled by the lungs, your circulatory system delivering oxygen and nutrients to the other cells of your body picking up any waste products created by these cells including carbon dioxide, and delivering these waste products to the kidneys and lungs for disposal and the circulatory system carrying hormones from the endocrine system, and the immune system's white blood cells that fight off infection should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your respiratory system relying on your circulatory system to deliver the oxygen it gathers, the muscles of your heart functioning with the oxygen they receive from your lungs, the bones of your skull and spine protecting your brain and spinal cord, your brain regulating the position of your bones by controlling your muscles, the circulatory system providing your brain with a constant supply of oxygen-rich blood and your brain regulating your heart rate and blood pressure"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your respiratory system relying on your circulatory system to deliver the oxygen it gathers, the muscles of your heart functioning with the oxygen they receive from your lungs, the bones of your skull and spine protecting your brain and spinal cord, your brain regulating the position of your bones by controlling your muscles, the circulatory system providing your brain with a constant supply of oxygen-rich blood and your brain regulating your heart rate and blood pressure should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your skeletal system relying on your urinary system to remove waste produced by bone cells, the bones of your skeleton creating structure that protects your bladder and other urinary system organs, your circulatory system delivers oxygen-rich blood to your bones and your bones making new blood cells"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Your skeletal system relying on your urinary system to remove waste produced by bone cells, the bones of your skeleton creating structure that protects your bladder and other urinary system organs, your circulatory system delivers oxygen-rich blood to your bones and your bones making new blood cells should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Working together, these systems maintaining internal stability and balance, otherwise known as homeostasis"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for: Working together, these systems maintaining internal stability and balance, otherwise known as homeostasis should be kept going and not have blocks."),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other organ connections' function"),
texttobr2qb,texttobrqb,
writeln("Quantum Box for other organ connections' medicine"),
texttobr2qb,texttobrqb,
writeln("Completed.").
%% Important: See instructions for using texttobr.pl at https://lucianpedia.wikia.com/wiki/Instructions_for_Using_texttobr(2).pl .
use_module(library(dcg/basics)).
%% texttobr2 - converts file stream to dimensions of objects represented by the words
%% replace ⁃,–,— in file.txt with - or crashes
%% replace “,” in file.txt with " or crashes
%% replace ‘,’ in file.txt with ' or crashes
%% replace MS Word return in file.txt with return or crashes
%% replace nonbreaking space " " in file.txt with normal space " " or crashes
%% Copy and paste text into VI, not TextEdit, etc to avoid inserting incorrect return characters
%% has object name as separate field for new users of texttobr to verify breasonings by hand
%% brdict1.txt word and object name, brdict2.txt object name and x, y and z
file2qb("i
the
to
and
in
by
of
this
prepared
a
maintain
first
way
third
second
did
for
with
head
as
on
my
breasonings
argument
prevent
clear
that
headache
conception
yoga
prayer
s
health
used
thoughts
technique
depression
breasoning
unwanted
safe
quantum
muscles
box
b
vitamin
using
preventing
mind
healthy
exercises
ensure
be
at
train
prevention
out
nut
no
master
interpretation
high
god
education
bolt
being
was
time
slices
skin
relax
problems
philosophy
have
function
food
ate
are
apple
wrote
write
virality
single
remain
quality
products
pot
perfect
part
organs
one
next
must
muscle
maintaining
keep
imagery
honey
hallucinogenic
from
correctness
comfortable
breakfast
before
asanas
appearances
an
about
whole
wanted
they
them
tape
status
spine
sites
require
relaxed
read
psychology
psychiatry
positive
pimple
physiology
performing
peace
off
neck
music
mistake
minutes
it
incompatibility
happy
happiness
grade
gaffer
flu
felt
feeling
excess
elderberries
effects
each
drinking
do
complexes
comfort
colds
blocking
binding
ache
writing
water
viruses
then
surya
study
studied
structure
stated
state
spiritual
so
room
product
prevented
poem
pm
performed
over
nuts
noticed
nietzsche
namaskar
laughter
hills
helped
help
headaches
had
grains
glasses
gave
fruits
earned
during
down
dotted
details
day
connected
chapter
breasoned
based
bacteria
avoid
area
all
after
zoo
years
words
without
where
well
ways
warm
walks
view
videos
vegetables
upasana
up
university
two
turn
treating
travel
trains
touch
together
tied
through
thinking
text
test
task
table
sutra
successful
subject
studying
strawberry
straight
stop
stating
some
societal
sleep
sized
sitting
short
sex
sets
sell
seek
see
schizophrenia
same
sales").
file2qbpl("Quantum Box - Automates the Patient's Daily Self Treatment
Daily Regimen:
Please silently repeat 20 lucian mantras and 20 green sutras, and prayer for no digestive system pops from practising the sutra each day
Please silently repeat 20 yoga mantras and 20 yoga sutras
Please silently repeat 20 qi gong mantras and 20 qi gong sutras
Also for the following, which also have quantum box and nut and bolt:
Turn off workload from all employees including you below you, 
Also for the following, which also have quantum box and nut and bolt:
Detect and turn off workloads using manager algorithm. (The self does the As, turning off the workloads.)
Also for the following, which also have quantum box and nut and bolt:
Detect and turn off workloads using manager network. (The others help finish the As, turning off the workloads.)
Also for the following, which also have quantum box and nut and bolt:
No muscle aches/pains
50 As per Organ
Quantum Box for: The heart
Quantum Box for: heart muscles
Quantum Box for: continually circulating blood around the body
Quantum Box for: knowing your heart is working because you can feel your heart beat
Quantum Box for: feeling the blood at your pulse
Quantum Box for: pumping blood containing new oxygen to every part of your body
Quantum Box for: pumping the old blood without oxygen back through the lungs where it picks up new oxygen to repeat this cycle
Quantum Box for other heart function
Quantum Box for: The heart should be kept going and not have blocks.
Quantum Box for: heart muscles should be kept going and not have blocks.
Quantum Box for: continually circulating blood around the body should be kept going and not have blocks.
Quantum Box for: knowing your heart is working because you can feel your heart beat should be kept going and not have blocks.
Quantum Box for: feeling the blood at your pulse should be kept going and not have blocks.
Quantum Box for: pumping blood containing new oxygen to every part of your body should be kept going and not have blocks.
Quantum Box for: pumping the old blood without oxygen back through the lungs where it picks up new oxygen to repeat this cycle should be kept going and not have blocks.
Quantum Box for other heart medicine
Quantum Box for: The lungs
Quantum Box for: breathing
Quantum Box for: filtering oxygen from the air through tiny vessels into the blood
Quantum Box for: carrying oxygen to the heart to be pumped round your body
Quantum Box for: filtering carbon dioxide from your body when you breathe out
Quantum Box for other lungs function
Quantum Box for: The lungs should be kept going and not have blocks
Quantum Box for: breathing should be kept going and not have blocks
Quantum Box for: filtering oxygen from the air through tiny vessels into the blood should be kept going and not have blocks
Quantum Box for: carrying oxygen to the heart to be pumped round your body should be kept going and not have blocks
Quantum Box for: filtering carbon dioxide from your body when you breathe out should be kept going and not have blocks
Quantum Box for other lungs medicine
Quantum Box for: The liver
Quantum Box for: filtering the blood
Quantum Box for: filtering chemicals and impurities
Quantum Box for: including from drugs and medications
Quantum Box for: making and processes many body fats and the liver regrowing
Quantum Box for other liver function
Quantum Box for: The liver should be kept going and not have blocks
Quantum Box for: filtering the blood should be kept going and not have blocks
Quantum Box for: filtering chemicals and impurities should be kept going and not have blocks
Quantum Box for: including from drugs and medications should be kept going and not have blocks
Quantum Box for: making and processes many body fats and the liver regrowing should be kept going and not have blocks should be kept going and not have blocks
Quantum Box for other liver medicine
Quantum Box for: The kidneys
Quantum Box for: the kidneys filtering
Quantum Box for: filtering some drugs and filtering waste products that leave the body as urine
Quantum Box for other kidneys function
Quantum Box for: The kidneys should be kept going and not have blocks
Quantum Box for: the kidneys filtering should be kept going and not have blocks
Quantum Box for: filtering some drugs and filtering waste products that leave the body as urine should be kept going and not have blocks.
Quantum Box for other kidneys medicine
Quantum Box for: The stomach and intestines
Quantum Box for: starting to break down and process food, drink and oral medications in the body and absorbing nutrients and drugs through the stomach and small intestine walls 
Quantum Box for other stomach and intestines function
Quantum Box for: The stomach and intestines should be kept going and not have blocks
Quantum Box for: starting to break down and process food, drink and oral medications in the body and absorbing nutrients and drugs through the stomach and small intestine walls should be kept going and not have blocks.  
Quantum Box for other stomach and intestines medicine
Quantum Box for: The thymus
Quantum Box for: developing CD4 cells and other white blood cells
Quantum Box for other thymus function
Quantum Box for: The thymus should be kept going and not have blocks
Quantum Box for: developing CD4 cells and other white blood cells should be kept going and not have blocks.  
Quantum Box for other thymus medicine
Quantum Box for: The pancreas
Quantum Box for: releasing digestive enzymes into the small intestine and hormones that control sugar levels in your blood 
Quantum Box for: in that case, living without a pancreas by taking insulin to regulate blood sugar levels and taking supplementary digestive enzymes
Quantum Box for other pancreas function
Quantum Box for: The pancreas should be kept going and not have blocks
Quantum Box for: releasing digestive enzymes into the small intestine and hormones that control sugar levels in your blood 
Quantum Box for: in that case, living without a pancreas by taking insulin to regulate blood sugar levels and taking supplementary digestive enzymes should be kept going and not have blocks.  
Quantum Box for other pancreas medicine
Quantum Box for: The skin
Quantum Box for: stopping your body from drying out and being the main barrier against infection
Quantum Box for other skin function
Quantum Box for: The skin should be kept going and not have blocks
Quantum Box for: stopping your body from drying out and being the main barrier against infection should be kept going and not have blocks.  
Quantum Box for other skin medicine
Quantum Box for: The bones
Quantum Box for: 10% of bone being replaced each year
Quantum Box for other bones function
Quantum Box for: The bones should be kept going and not have blocks
Quantum Box for: 10% of bone being replaced each year should be kept going and not have blocks. 
Quantum Box for other bones medicine
Quantum Box for: Bone marrow
Quantum Box for: blood cells originally coming from bone marrow
Quantum Box for other bone marrow function
Quantum Box for: Bone marrow should be kept going and not have blocks
Quantum Box for: blood cells originally coming from bone marrow should be kept going and not have blocks. 
Quantum Box for other bone marrow medicine
Quantum Box for: Blood
Quantum Box for: blood pumped by your heart
Quantum Box for: delivering oxygen and nutrients to every part of your body and carrying waste products away
Quantum Box for: blood cells (red cells, white cells, platelets etc) and plasma
Quantum Box for other blood function
Quantum Box for: Blood should be kept going and not have blocks
Quantum Box for: blood pumped by your heart should be kept going and not have blocks
Quantum Box for: delivering oxygen and nutrients to every part of your body and carrying waste products away should be kept going and not have blocks
Quantum Box for: blood cells (red cells, white cells, platelets etc) and plasma should be kept going and not have blocks. 
Quantum Box for other blood medicine
Quantum Box for: Plasma 
Quantum Box for: its nutrients, sugars, proteins, minerals, enzymes, and other substances but with the blood cells taken out 
Quantum Box for other plasma function
Quantum Box for: Plasma should be kept going and not have blocks
Quantum Box for: its nutrients, sugars, proteins, minerals, enzymes, and other substances but with the blood cells taken out should be kept going and not have blocks
Quantum Box for other plasma medicine
Quantum Box for: Lymph
Quantum Box for: its white blood cells and antibodies
Quantum Box for: the lymph vessels, nodes, and organs and removing waste products from the body
Quantum Box for other lymph function
Quantum Box for: Lymph should be kept going and not have blocks
Quantum Box for: its white blood cells and antibodies should be kept going and not have blocks
Quantum Box for: the lymph vessels, nodes, and organs and removing waste products from the body should be kept going and not have blocks
Quantum Box for other lymph medicine
Quantum Box for: The lymph nodes
Quantum Box for: the CD4 cells in your body resting and reproducing in your lymph nodes 
Quantum Box for other lymph nodes function
Quantum Box for: The lymph nodes
Quantum Box for: the CD4 cells in your body resting and reproducing in your lymph nodes 
Quantum Box for other lymph nodes medicine
Quantum Box for other organs' function
Quantum Box for other organs' medicine
Quantum Box for: Your heart does not beat unless your brain and nervous system tell it to do so. 
Quantum Box for: Your heart beating because your brain and nervous system tell it to do so should be kept going and not have blocks.
Quantum Box for: Your skeletal system relies on the nutrients it gains from your digestive system to build strong, healthy bones.
Quantum Box for: Your skeletal system relying on the nutrients it gains from your digestive system to build strong, healthy bones should be kept going and not have blocks.
Quantum Box for: Your cardiovascular system works to circulate your blood.
Quantum Box for: Your cardiovascular system should be kept going and not have blocks.
Quantum Box for: Your respiratory system introduces oxygen into your body.
Quantum Box for: Your respiratory system introducing oxygen into your body should be kept going and not have blocks.
Quantum Box for: Your heart pumping blood through a complex network of blood vessels, your blood circulating through your digestive system and picking up nutrients your body absorbed from your last meal, your blood carrying oxygen inhaled by the lungs, your circulatory system delivering oxygen and nutrients to the other cells of your body picking up any waste products created by these cells including carbon dioxide, and delivering these waste products to the kidneys and lungs for disposal and the circulatory system carrying hormones from the endocrine system, and the immune system's white blood cells that fight off infection
Quantum Box for: Your heart pumping blood through a complex network of blood vessels, your blood circulating through your digestive system and picking up nutrients your body absorbed from your last meal, your blood carrying oxygen inhaled by the lungs, your circulatory system delivering oxygen and nutrients to the other cells of your body picking up any waste products created by these cells including carbon dioxide, and delivering these waste products to the kidneys and lungs for disposal and the circulatory system carrying hormones from the endocrine system, and the immune system's white blood cells that fight off infection should be kept going and not have blocks.
Quantum Box for: Your respiratory system relying on your circulatory system to deliver the oxygen it gathers, the muscles of your heart functioning with the oxygen they receive from your lungs, the bones of your skull and spine protecting your brain and spinal cord, your brain regulating the position of your bones by controlling your muscles, the circulatory system providing your brain with a constant supply of oxygen-rich blood and your brain regulating your heart rate and blood pressure
Quantum Box for: Your respiratory system relying on your circulatory system to deliver the oxygen it gathers, the muscles of your heart functioning with the oxygen they receive from your lungs, the bones of your skull and spine protecting your brain and spinal cord, your brain regulating the position of your bones by controlling your muscles, the circulatory system providing your brain with a constant supply of oxygen-rich blood and your brain regulating your heart rate and blood pressure should be kept going and not have blocks.
Quantum Box for: Your skeletal system relying on your urinary system to remove waste produced by bone cells, the bones of your skeleton creating structure that protects your bladder and other urinary system organs, your circulatory system delivers oxygen-rich blood to your bones and your bones making new blood cells
Quantum Box for: Your skeletal system relying on your urinary system to remove waste produced by bone cells, the bones of your skeleton creating structure that protects your bladder and other urinary system organs, your circulatory system delivers oxygen-rich blood to your bones and your bones making new blood cells should be kept going and not have blocks.
Quantum Box for: Working together, these systems maintaining internal stability and balance, otherwise known as homeostasis
Quantum Box for: Working together, these systems maintaining internal stability and balance, otherwise known as homeostasis should be kept going and not have blocks.
Quantum Box for other organ connections' function
Quantum Box for other organ connections' medicine
Completed.").
texttobr2qb :-
file2qb(File),
texttobr2(File),!.
texttobr2qbpl :-
file2qbpl(File),
texttobr2(File),!.
texttobr2(File) :-
/**phrase_from_file(string(BrDict0), 'brdict1.txt'),
%%string_codes("
%%BrDict01,
%%",BrDict0),
%%Chars="’",
%%split_string(BrDict0,SepandPad,SepandPad,BrDict01),
%%writeln([brDict0,BrDict0]),
splitfurther(BrDict0,BrDict01),**/
SepandPad="&#@~%`$?-+*^,()|.:;=_/[]<>{}\n\s\t\\\"!'0123456789",
BrDict01=[[please,plus],[silently,zero],[completed,tick],[a,up],[about,dash],[absorbed,down],[absorbing,down],[ache,line],[aches,minus],[after,plus],[against,minus],[air,box],[algorithm,and],[all,square],[also,plus],[an,up],[and,""],[antibodies,antibody],[any,one],[appearances,square],[apple,""],[are,equals],[area,square],[argument,a],[around,right],[as,equals],[asanas,mat],[at,dash],[ate,spoon],[automates,cycle],[avoid,xcorrection],[away,zero],[b,""],[back,left],[bacteria,bacterium],[balance,box],[barrier,box],[based,square],[be,equals],[beat,a],[beating,dot],[because,left],[been,equals],[before,minus],[being,person],[below,down],[binding,square],[bladder,""],[blocking,box],[blocks,box],[blood,""],[body,person],[bolt,twobox],[bone,""],[bones,bone],[box,""],[brain,""],[break,dash],[breakfast,plate],[breasoned,apple],[breasoning,apple],[breasonings,apple],[breathe,lung],[breathing,lung],[build,box],[but,minus],[by,dash],[can,dash],[carbon,""],[cardiovascular,heart],[carrying,box],[case,paper],[cd,""],[cells,box],[chapter,book],[chemicals,oxygen],[circulate,circle],[circulating,circle],[circulatory,circle],[clear,dash],[colds,bacterium],[comfort,person],[comfortable,seat],[coming,right],[complex,square],[complexes,box],[conception,plus],[connected,plus],[connections,dash],[constant,n],[containing,box],[continually,right],[control,tick],[controlling,plus],[cord,""],[correctness,tick],[created,person],[creating,plus],[cycle,circle],[daily,square],[day,""],[deliver,right],[delivering,right],[delivers,right],[depression,minus],[details,box],[detect,equals],[developing,box],[did,dash],[digestive,intestines],[dioxide,""],[disposal,down],[do,person],[does,right],[done,plus],[dotted,dot],[down,""],[drink,glass],[drinking,glass],[drugs,switch],[drying,square],[during,one],[each,dash],[earned,dollarsign],[education,person],[effects,a],[elderberries,berry],[employees,person],[endocrine,gland],[ensure,tick],[enzymes,box],[etc,box],[every,n],[excess,box],[exercises,paper],[fats,box],[feel,hand],[feeling,square],[felt,square],[fight,xcorrection],[filtering,square],[finish,n],[first,one],[flu,virus],[following,dash],[food,apple],[for,dash],[from,dash],[fruits,apple],[function,a],[functioning,plus],[g,box],[gaffer,person],[gains,up],[gathers,box],[gave,pencilsharpener],[glasses,""],[god,person],[going,right],[gong,plus],[grade,a],[grains,""],[green,square],[had,square],[hallucinogenic,minus],[happiness,plus],[happy,""],[have,apple],[head,""],[headache,minus],[headaches,minus],[health,person],[healthy,person],[heart,""],[help,square],[helped,person],[high,a],[hills,hill],[homeostasis,line],[honey,""],[hormones,box],[i,person],[if,dash],[imagery,square],[immune,plus],[impurities,minus],[in,square],[include,plus],[including,plus],[incompatibility,xcorrection],[infection,virus],[inhaled,air],[insulin,box],[internal,square],[interpretation,paper],[intestine,""],[intestines,""],[into,square],[introduces,one],[introducing,dash],[is,equals],[it,down],[its,up],[keep,one],[kept,plus],[kidneys,kidney],[knowing,tick],[known,plus],[l,variable],[last,n],[laughter,a],[leave,right],[levels,tworectangle],[liver,""],[living,plus],[lucian,person],[lungs,lung],[lymph,""],[main,one],[maintain,dash],[maintaining,dash],[making,box],[manager,person],[mantras,square],[many,n],[marrow,box],[master,person],[meal,apple],[medications,switch],[medicine,paper],[memory,box],[mind,brain],[minerals,mineral],[minutes,paper],[mistake,xcorrection],[muscle,box],[muscles,box],[music,note],[must,dash],[my,person],[namaskar,hand],[neck,""],[nervous,nerve],[network,dot],[new,plus],[next,right],[nietzsche,person],[no,xcorrection],[nodes,dot],[not,xcorrection],[noticed,person],[nut,""],[nutrients,apple],[nuts,nut],[of,dash],[off,xcorrection],[old,dash],[on,plus],[one,""],[oral,mouth],[organ,box],[organs,box],[originally,one],[other,person],[others,person],[otherwise,minus],[out,minus],[over,xcorrection],[oxygen,""],[pains,minus],[pancreas,""],[part,box],[patient,person],[peace,a],[per,dash],[perfect,a],[performed,person],[performing,person],[philosophy,book],[physiology,person],[picking,tick],[picks,tick],[pimple,""],[pl,square],[plasma,""],[platelets,platelet],[pm,dash],[poem,paper],[pops,bubble],[position,n],[positive,plus],[pot,""],[practising,plus],[prayer,paper],[prepared,plus],[pressure,n],[prevent,xcorrection],[prevented,xcorrection],[preventing,xcorrection],[prevention,xcorrection],[problems,a],[process,line],[processes,right],[produced,right],[product,leash],[products,apple],[protecting,plus],[protects,plus],[proteins,protein],[providing,right],[psychiatry,person],[psychology,paper],[pulse,square],[pumped,pump],[pumping,right],[qb,box],[qbpl,box],[qi,dot],[quality,a],[quantum,n],[rate,n],[read,book],[receive,left],[red,square],[regimen,paper],[regrowing,up],[regulate,line],[regulating,line],[relax,person],[relaxed,person],[releasing,right],[relies,left],[relying,left],[remain,one],[remove,minus],[removing,xcorrection],[repeat,n],[replaced,dash],[reproducing,two],[require,left],[respiratory,lung],[resting,zero],[rich,coin],[room,""],[round,dot],[s,box],[safe,a],[sales,dollarsign],[same,equals],[schizophrenia,minus],[second,two],[see,square],[seek,left],[self,person],[sell,dollarsign],[sets,fiverectangle],[sex,person],[short,dash],[should,dash],[single,one],[sites,paper],[sitting,""],[sized,ruler],[skeletal,bone],[skeleton,""],[skin,square],[skull,""],[sleep,""],[slices,box],[small,amount],[so,right],[societal,person],[some,one],[spinal,spine],[spine,""],[spiritual,person],[stability,box],[starting,one],[state,a],[stated,paper],[stating,person],[status,a],[stomach,""],[stop,""],[stopping,n],[straight,line],[strawberry,berry],[strong,n],[structure,box],[studied,person],[study,room],[studying,person],[subject,person],[substances,box],[successful,a],[sugar,""],[sugars,sugar],[supplementary,plus],[supply,right],[surya,sun],[sutra,a],[sutras,square],[swipl,twobox],[system,dash],[systems,box],[t,variable],[table,paper],[taken,left],[taking,left],[tape,""],[task,book],[technique,paper],[tell,mouth],[test,paper],[text,paper],[texttobr,right],[texttobrqb,apple],[texttobrqbpl,box],[that,up],[the,up],[them,person],[then,right],[these,down],[they,person],[thinking,a],[third,three],[this,down],[thoughts,square],[through,dash],[thymus,""],[tied,equals],[time,""],[tiny,n],[to,right],[together,dash],[touch,square],[train,box],[trains,person],[travel,train],[treating,book],[treatment,tick],[turn,square],[turning,right],[two,""],[university,building],[unless,xcorrection],[unwanted,minus],[up,""],[upasana,meditator],[urinary,urine],[urine,""],[used,plus],[using,dash],[vegetables,squash],[vessels,tube],[videos,square],[view,eye],[virality,plus],[viruses,virus],[vitamin,capsule],[walks,path],[walls,box],[wanted,book],[warm,plus],[was,equals],[waste,minus],[water,amount],[way,path],[ways,path],[well,person],[when,zero],[where,square],[which,up],[white,square],[whole,box],[with,dash],[without,minus],[words,lowera],[working,paper],[workload,paper],[workloads,book],[works,book],[write,pencil],[writing,paper],[wrote,pen],[year,square],[years,threerectangle],[yoga,mat],[you,person],[your,person],[zoo,building]],
%%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(BrDict02,BrDict03),
%%writeln([brDict03,BrDict03]), %% 
length(BrDict03,Length0),%% write("Number of words in dictionary: "), writeln(Length0),
/**phrase_from_file(string(BrDict0t), 'brdict2.txt'),
%%Chars="’",
%%split_string(BrDict0,SepandPad,SepandPad,BrDict01),
%%writeln([brDict0,BrDict0]),
splitfurthert(BrDict0t,BrDict01t),**/
BrDict01t=[[a,1,1.5,0],[air,1,1,1],[amount,0.5,0.5,0.5],[and,1,1,0],[antibody,1,1,1],[apple,5,5,5],[b,1,1,1],[bacterium,2,1,1],[berry,1,1,1],[bladder,10,5,10],[blood,1,1,1],[bone,45,10,10],[book,15,20,1],[box,1,1,1],[brain,20,20,30],[bubble,1,1,1],[building,50,50,50],[capsule,1,0.25,0.25],[carbon,1,1,1],[cd,10,10,0.1],[circle,1,1,0],[coin,1,1,0.25],[cord,5,1,1],[cycle,1,1,0],[dash,1,1,0],[day,1,1,0],[dioxide,2,1,1],[dollarsign,1,1.5,0],[dot,1,1,0],[down,1,1,0],[equals,1,1,0],[eye,5,5,5],[fiverectangle,5,1,0],[gland,1,1,0.2],[glass,5,5,5],[glasses,15,11,3],[grains,1,1,1],[hand,20,10,3],[happy,1,1,0],[head,15,20,23],[heart,1,1,0],[hill,5,5,2],[honey,10,10,10],[intestine,30,20,20],[intestines,30,20,20],[kidney,4,1,5],[leash,100,1,1],[left,1,1,0],[line,1,0,0],[liver,25,10,6],[lowera,1,1,0],[lung,10,10,30],[lymph,1,1,1],[mat,180,50,1],[meditator,100,100,150],[mineral,1,1,1],[minus,1,1,0],[mouth,4,0.5,0],[n,1,1,0],[neck,15,15,10],[nerve,1,1,5],[note,1,1,0],[nut,1,1,1],[one,1,1.5,0],[oxygen,2,1,1],[pancreas,10,5,2],[paper,20,30,0.0001],[path,100,1000,0],[pen,15,1,1],[pencil,15,1,1],[pencilsharpener,1,1,1],[person,50,30,180],[pimple,0.1,0.1,0.1],[plasma,1,1,1],[plate,10,10,1],[platelet,1,1,0.5],[plus,1,1,0],[pot,5,5,10],[protein,3,1,1],[pump,1,1,3],[right,1,1,0],[room,500,400,300],[ruler,30,1,0],[seat,50,50,100],[sitting,50,70,150],[skeleton,50,30,180],[skull,20,20,30],[sleep,180,50,30],[spine,1,1,10],[spoon,15,2,1],[square,1,1,0],[squash,5,5,5],[stomach,15,10,10],[stop,1,1,0],[sugar,1,1,1],[sun,10,10,10],[switch,1,1,1],[tape,10,10,1],[three,1,1.5,0],[threerectangle,3,1,0],[thymus,1,1,2],[tick,1,1,0],[time,1,1.5,0],[train,10,3,0],[tube,3,1,1],[two,1,1.5,0],[twobox,2,1,1],[tworectangle,2,1,0],[up,1,1,0],[urine,1,1,1],[variable,1,1,0],[virus,1,1,1],[xcorrection,1,1,0],[zero,1,1.5,0]],
%%writeln([brDict01,BrDict01]),
delete(BrDict01t,[Escape,_,_,_,_],BrDict021t),
%%writeln([brDict021,BrDict021]),
delete(BrDict021t,[Apostrophe,_,_,_,_],BrDict02t),
%%writeln([brDict02,BrDict02]),
sort(BrDict02t,BrDict03t),
%%writeln([brDict03,BrDict03]),
length(BrDict03t,Length0t),%% write("Number of unique breasonings in dictionary: "), writeln(Length0t),
%%phrase_from_file(string(String), 'file2qb.txt'),
String=File,
%%atom_codes(Atom999,String),writeln([atom999,Atom999]),
split_string(String,SepandPad,SepandPad,List),
%%writeln([list,List]),
delete(List,Escape,List11),
%%writeln([list11,List11]),
delete(List11,Apostrophe,List1),
%%writeln([list1,List1]),
length(List1,Length1),%% write("Number of words to breason out in file.txt: "), writeln(Length1),
sort(List1,List2),
%%writeln([list2,List2]),
length(List2,Length2),%% write("Number of unique words in file.txt: "), writeln(Length2),
maplist(downcase_atom, List2, List3),
%%writeln([list3,List3]),
towords(BrDict03,[],BrDict04,[],ObjectNames,[],AllUsedNames),
towords2(BrDict03t,[],BrDict04t),
%%writeln([objectNames,ObjectNames]),
%%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),
%%writeln([allUsedNames,AllUsedNames]),
%%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
%%writeln([list1,List1]),
br(List1,BrDict03,BrDict2,BrDict03t,BrDict03t2),
sort(BrDict2,BrDict3)
/**open('brdict1.txt',write, Stream),
%%	string_codes(BrDict3),
    write(Stream,BrDict3),
    close(Stream),
sort(BrDict03t2,BrDict03t3),
open('brdict2.txt',write, Stream2),
%%	string_codes(BrDict3),
    write(Stream2,BrDict03t3),
    close(Stream2),!**/.
towords([],A,A,C,C,D,D) :- !.
towords(BrDict03,A,B,D,E,G,H) :-
BrDict03=[[Word1,Word2]|Rest],
atom_string(Atom1,Word1),
atom_string(Atom2,Word2),
(Atom2=->append(G,[Atom1],I);
append(G,[Atom2],I)),
append(A,[Atom1],C),
append(D,[Atom2],F),
towords(Rest,C,B,F,E,I,H).
towords2([],A,A) :- !.
towords2(BrDict03,A,B) :-
BrDict03=[[Word,_,_,_]|Rest],
atom_string(Atom,Word),
append(A,[Atom],C),
towords2(Rest,C,B).
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);(X=27;X=8217)}, word(Xs), !.
%%word([X]) --> [X], {char_type(X,csymf);(X=27;X=8217)}, !.
word([]) --> [].
digits([X|Xs]) --> [X], {(char_type(X,digit);(string_codes(Word2,[X]),Word2="."))}, digits(Xs), !.
%%digits([X]) --> [X], {(char_type(X,digit);(string_codes(Word2,[X]),Word2="."))}, !.
digits([]) --> [].
br([],B,B,C,C) :-
!.
br([Word|Words],BrDict,BrDict2,BrDict4,BrDict5) :-
downcase_atom(Word, Word3), %%atom_string(Word2,Word3),
(member([Word3,String4],BrDict)-> 
(%%write([Word3,String4]),writeln(","),
BrDict3=BrDict);
((repeat,
write("Enter object name (without spaces), if different for "), writeln(Word3),read(String2),split_string(String2, "", " ", String3),String3=[String4]),
append(BrDict,[[Word3,String4]],BrDict3))),
brth(Word3,_Brth),
(String4=""->String5=Word3;String5=String4),
downcase_atom(String5, String53), %%atom_string(String52,String53),
(member([String53,X,Y,Z],BrDict4)->
(%%write([String53,X,Y,Z]),writeln(","),
BrDict3t=BrDict4);
((repeat,
write("Enter x, y and z in cm for "), writeln(String53),read(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]],BrDict3t))),
brth(String53,_Brth),
%%write("br(\'"),write(Word3),writeln("\',)."),
%%	writeln([Word3,X,Y,Z]),
%%write(' '),
br(Words,BrDict3,BrDict2,BrDict3t,BrDict5).
%%).
brth(_,sweet).
%% finds unknown words, asks for their br in form "n of m: word", verify, (can go back x) append and sort, save
%% texttobr - converts file stream to list of 3D dimensions of each character
texttobrqb :-
file2qb(File),
texttobr(File),!.
texttobrqbpl :-
file2qbpl(File),
texttobr(File),!.
texttobr(File) :-
%%phrase_from_file(string(String), File),
string_codes(File,String),
br(String),!.
string(String) --> list(String).
list([]) --> [].
list([L|Ls]) --> [L], list(Ls).
br([]) :-
!.
br([Code|Codes]) :-
char_code(Character,Code),
br(Character,_X,_Y,_Z),
brth(Character,_Brth),
%%write([Character,X,Y,Z]),
%%write(' '),
br(Codes).
brth(_,sweet).
br('A',1,1.5,0).
br('B',1,1.5,0).
br('C',1,1.5,0).
br('D',1,1.5,0).
br('E',1,1.5,0).
br('F',1,1.5,0).
br('G',1,1.5,0).
br('H',1,1.5,0).
br('I',1,1.5,0).
br('J',1,1.5,0).
br('K',1,1.5,0).
br('L',1,1.5,0).
br('M',1,1.5,0).
br('N',1,1.5,0).
br('O',1,1.5,0).
br('P',1,1.5,0).
br('Q',1,1.5,0).
br('R',1,1.5,0).
br('S',1,1.5,0).
br('T',1,1.5,0).
br('U',1,1.5,0).
br('V',1,1.5,0).
br('W',1,1.5,0).
br('X',1,1.5,0).
br('Y',1,1.5,0).
br('Z',1,1.5,0).
br('a',1,1,0).
br('b',1,1.5,0).
br('c',1,1,0).
br('d',1,1.5,0).
br('e',1,1,0).
br('f',1,2.5,0).
br('g',1,2,0).
br('h',1,1.5,0).
br('i',1,1.5,0).
br('j',1,2.5,0).
br('k',1,1.5,0).
br('l',1,1.5,0).
br('m',1,1,0).
br('n',1,1,0).
br('o',1,1,0).
br('p',1,2,0).
br('q',1,2,0).
br('r',1,1,0).
br('s',1,1,0).
br('t',1,1.5,0).
br('u',1,1,0).
br('v',1,1,0).
br('w',1,1,0).
br('x',1,1,0).
br('y',1,2,0).
br('z',1,1,0).
br('?',1,1.5,0).
br('-',1,1,0).
br(' ',1,1,0).
br(',',1,1,0).
br('(',1,1.5,0).
br(')',1,1.5,0).
br('|',1,2.5,0).
br('.',1,1,0).
br(':',1,1,0).
br('_',1,1,0).
br('\'',1,1.5,0).
br('[',1,1.5,0).
br(']',1,1.5,0).
br('<',1,1,0).
br('>',1,1,0).
br('0',1,1.5,0).
br('1',1,1.5,0).
br('2',1,1.5,0).
br('3',1,1.5,0).
br('4',1,1.5,0).
br('5',1,1.5,0).
br('6',1,1.5,0).
br('7',1,1.5,0).
br('8',1,1.5,0).
br('9',1,1.5,0).
br('{',1,1.5,0).
br('}',1,1.5,0).
br('\n',1,1,0).
br(_,1,1,0).