(setf poem '(
;; *** novq1.grt ***
;; *** 25 oct 05 ***
;; *** 1st poem of haibun 4 poem structure ***
(discourse-structure 
  (title topic1)
  (topic1 eval1)
  (eval1 topic2)
  (topic2 topic2 eval2)
  (eval2 eval2) )

(templates

(title
  ("6:41" am)
  ("6:41" am)
  (clear early morning)
  (grey morning early)
  (white-yellow cloud morning)
)

(topic1
  (time is a traveller too)
  (clear (* g-singular-noun) (* g-singular-noun) cloud masses)
  ((* g-singular-noun) vivid solid ",")
  (inscrutable (* g-singular-noun) clouds)
  (inscrutable clouds)
  ((* g-singular-noun) compassion clouds)
  ((* g-singular-noun) cloud ocean)
  ((* g-singular-noun) shaped clouds)
  ((* g-singular-noun d-other) are ",")
)

(eval1
  (motionlessly moving)
  (shining ",")
  (unmoved moving trees)
  (luminous static canopy ",")
  (glowing (* g-singular-noun d-other) ",")
  (frozen protecting (* g-singular-noun))
)

(topic2
  ((* g-singular-noun d-other) singular "," straight)
  (past unending (* g-singular-noun d-other) road "-")
  (forever (* g-singular-noun d-other) sky "-") 
  ((* g-singular-noun d-other) changing "," unchanging "-")
  (blue highway blue (* g-singular-noun d-other) ",")
  (connecting (* g-singular-noun d-other) ",")
)

(eval2
  (almost too lovely to bear)
  (almost too lovely to bear)
  (infinite perfect painful stillness)
  (beyond being gone "," gone beyond being)
  (no (* g-singular-noun) d-self)
  (gone "," gone "," gone way beyond)
  (timeless "," perfected (* g-singular-noun d-other))
)
)

;;; 

(domains

(self (keywords self me I myself my)
  (being*person is self*person)         
  (self*person immersed-in world*object)         
  (self*person experiences moments*object)
  (I*person fear void*state)
  (body*object made-of flesh*object)
  (self*object is transient*state)
  (mind*object is empty*emotion)
  (heart*object feels tender*emotion)
  (suffering*state is self*person)
  (reflection*state requires gap*object)
  (reflection*state engenders compassion*state)
  (no-suffering*state and no-end-of-suffering*state)         
  (wanting*state is empty*state)
  (hunger*state is passion*emotion)
  (wanting*emotion is empty*state)
)

(other (keywords they it she he other)
  (self*person versus other*person)
  (all*person experience sky*object)         
  (other*person dwells-in time*object)
  (they*person embrace desire*state)
  (mind*object versus body*object)
  (cloud*object changes-to vapor*object)         
  (form*object is emptiness*object)         
  (emptiness*object is form*object)
  (form*object is emptiness*object)         
  (emptiness*object is form*object)
  (emptiness*object encourages compassion*object)
  (compassion*object is everywhere*state)
  (solidity*object is illusion*state)         
  (heart*object is tender*emotion)         
  (heart*object is tender*emotion)
  (other*state is moonlight*person)
  (compassion*state is inscrutable*object)
  (clarity*state is stillness*object)
  (concept*state versus percept*state)
  (concept*state is fear*emotion)
  (fear*emotion is transient*state)
)

(empty (keywords void empty no none nothing)
  (all*person are tender*person)
  (all*person are luminous*object)
  (people*person are empty*state)
  (consciousness*object is luminous*object)
  (mind*object is inquisitive*state)
  (form*object is suffering*emotion)
  (attachment*object is suffering*emotion)
  (emptiness*state dwells-in everyone*person)
  (suffering*state is empty*object)
  (solidity*state is empty*state)
  (void*state includes awareness*state)
  (luminosity*state is compassion*state)
  (grasping*emotion is empty*state)
)

) ))