Create a Lucianic God

Lucianity is a meditation company. It's doctrines are of positivity, e.g. reconciliation and meditation are two of the chapters Lucian will write in it's bible.
There is a separate God, to be created in writing, based on Lucian. A God is a protector when preparing for holy duties, e.g. having a child, earning A or earning a job.
In Lucianity, there are Lucian, writers, monks, nuns and meditators. Lucian and the writers write the sacred texts creating the doctrine and Gods. The monks and nuns reciite the Lucianic Divine Office, which summarises the As about the doctrine and Gods that may one day be taught in theological degrees. The meditators say a simple mantra or sutra during two sessions per day.
The writers can create Godlets (Gods based on 1-49 As, as opposed to the Gods, who are based on 50 As). An example of the format needed is as follows. Write 85, 130 or 190 reasons in the folowing format for a A, A+ or 100%, respectively. Please indicate where there is a topic change. Please submit your God A(s) to lucian.david.mcowan.green@gmail.com with the topic(s) covered (what department(s) the God is of).
1. Pedagogy is the study of teaching.
Perspective and idea
Economics, buy an apple
Computer Program Description
Cut some pieces of apple and returns the others.
100% Code 1
%% cut([[1, 2], [2, 3]], 1, 2, RelsLeft).
Comment
The pieces of apple will be joined together after pieces 1 and 2 are cut, before which we had the joined pieces 1 and 2, and 2 and 3.
100% Code 2 
%% RelsLeft = [2, 3]
Comment
The program will return that the joined pieces are pieces 2 and 3.
100% Code 3
cut(Rels1, RelsToCut, Rels3) :-
Comment
The pieces of apple, Rels3, will be joined together after pieces RelsToCut are cut from the joined pieces Rels1.
100% Code 4
RelsToCut = [Item | Items],
Comment
Among the relationships to cut, RelsToCut, take the first pair to cut, Item, and leaves the others, Items, for next time.
100% Code 5
delete(Rels1, Item, Rels4),
Comment
Delete the first Item to cut from the joined pieces, Rels1, leaving the rest, Rels4.
Extra code
cut(Rels4, Items, Rels3).
Comment
Recursively call cut/3 until all the joined items, Rels4, that we wanted to cut have been cut with the rest of the cuts to make, Items, leaving the rest of the joined items, Rels3.
Extra code
cut(Rels, [], Rels).
Comment
Stop cutting when the relationships to cut is the empty set, represented by the open and closed square brackets and return the current list of joined items, Rels, as the final list of joined items, Rels.
X (m)
0.03
Y (m)
0.01
Z (m)
0.01
Touches
Yes
Subject breathsoning
Happy
Object breathsoning
Delicious
Verb rebreathsoning
Carefully
Room
Kitchen 
Part of Room
Bench 
Direction
South 
Time to prepare (s), reason
120, cut apple into rectangular prism
Time to do (s), reason
10, cut apple
Time to finish (s), reason
900, eat apple