sounddevice(Object1,Object2) :-
	havesameobject(Sound1,Sound2).
havesameobject(Object1,Object2) :- weight(Object1,Description), weight(Object2,Description).
weight(paper,0.00125).
weight(leaf,0.00125).

/**
S: It requires two objects to be related together to write a piece of creative writing.
S: It requires two objects to be related to write a poem.  Just as a poem is produced, a magazine is produced.  The magazine may contain words for objects which may have the same sound.  Do two sheets of A6 paper and two leaves from a plain tree have the same sound?  Is the sound of a sheet of A6 paper a good device for the sound of a leaf.  Are a sheet of A6 paper and a leaf similar objects?  What is the weight of a sheet of A6 paper?
L: The weight of a sheet of A6 paper is 0.00125 kg.
S: What is the weight of a leaf?
L: The weight of a leaf is 0.00125 kg.  A sheet of A6 paper and a leaf are similar objects.  The sound of a sheet of A6 paper is a good device for the sound of a leaf.  Two sheets of A6 paper and two leaves from  plain tree have the same sound.