Example code.

gistfile1.scm

(let ((o #f))
  (let* ((%o0 "CSV record") 
	 (%o1 (julian-day->date 42450252367064149/17280000000))
	 (%o2 "sdp_subscriber.v3.csv")
	 (%o3 "61075000123")
	 (%o4 (list %o3 "61075000123" "0" "0" "" "0" "1" "1" "1" "0" "0" "0" "1" "1" "1" "1" "1" "524" "524" "" "-439.000000" "1" "2013-10-29" "2013-10-29" "" "2009-08-29" "0" "0" "2009-08-09" "0" "0" "2008-10-19" "0" "0" "0" "0" "0" "1022" "0" "0" "0" "0" "0" "2013-01-01" "010812131415"))
	 (%o5 "SMS")
	 (%o6 "1111")
	 (%o7 "sms.text")
	 (%o8 "Dear Subscriber. Merry Christmas. Telstra")
	 (%o9 "email.text")
	 (%o10 "Dear Subscriber. Merry Christmas. Telstra <br>")
	 (%o11 "ptc:use-ucip?")
	 (%o12 "000001000000000R")
	 (%o13 "sms-retry-intervals.5")
	 (%o14 "sms-retry-intervals.4")
	 (%o15 "sms-retry-intervals.3")
	 (%o16 "sms-retry-intervals.2")
	 (%o17 "sms.arguments.1")
	 (%o18 "sms-retry-intervals.1")
	 (%o19 "ptc:sdp8.1-callback")
	 (%o20 "ptc:do-short-circuit?")
	 (%o21 "email.arguments.1")
	 (%o22 "$?")
	 (%o23 (make-thing <org-node> (organisation parent children declarations definitions )
			   (find-thing <organisation> "TAU")
			   #f '() (list ) 
			   (list (cons %o22 '#f)
				 (cons "intervals" '(0 5 15 60 1440))
				 (cons "ucip:get-balance-and-date.arguments.msisdn" %o3)
				 (cons "submit-short-message-with-retry.arguments.message" %o8)
				 (cons "ptc:instanciate-template.result.from" "cs")
				 (cons %o21 '61075000123)
				 (cons %o20 '#t)
				 (cons "submit-short-message-with-retry.arguments.callback" %o19)
				 (cons %o18 '0)
				 (cons %o17 '61075000123)
				 (cons %o16 '5)
				 (cons %o15 '15)
				 (cons %o14 '60)
				 (cons "submit-short-message-with-retry.arguments.source" %o6)
				 (cons %o13 '1440)
				 (cons "submit-short-message-with-retry.arguments.validity" %o12)
				 (cons "ptc:instanciate-template.result.subject" "Dear Subscriber. Merry Christmas. Telstra")
				 (cons "ptc:instanciate-template.result.text" %o10)
				 (cons %o11 '#t)
				 (cons "ptc:sdp8.1-callback.arguments.is-callback?" '#t)
				 (cons %o9 %o10)
				 (cons "ptc:instanciate-template.result.reply-to" "cs")
				 (cons "submit-short-message-with-retry.arguments.destination" %o3)
				 (cons %o7 %o8)
				 (cons "ptc:instanciate-template.result.msisdn" %o6))))
	 (%o24 (make-thing <org-node> (organisation parent children declarations definitions )
			   (find-thing <system-organisation> "SYS")
			   '()
			   (list %o23)
			   (list (cons "event.file" %o2)
				 (cons "subscriber.organisation.name" "Telstra Australia")
				 (cons "subscriber.alias-email" '())
				 (cons "event.record-no" '2)
				 (cons "event.fields" %o4)
				 (cons "subscriber.primary-email" '())
				 (cons "subscriber.msisdn" %o3)
				 (cons "event.cookie" '())
				 (cons "subscriber.preference" %o5)
				 (cons "subscriber.service-fee-expiry-date" (julian-day->date 29479133/12))
				 (cons "event.tranceiver.type" "SDP-RX")
				 (cons "subscriber.account-activation-date" (julian-day->date 29475521/12))
				 (cons "subscriber.organisation.id" "TAU")
				 (cons "event.timestamp" %o1)
				 (cons "subscriber.supervision-period-expiry-date" (julian-day->date 29479133/12))
				 (cons "event.gist" %o0)
				 (cons "event.channel.name" "sdp-0")
				 (cons "task.id.number" '0)
				 (cons "task.id.transaction" '114140035436) )
			   (list (cons %o22 '#t) )))
	 (%o25 (make-thing <constant> (parent value ) #f '#f))
	 (%o26 (make-thing <definition> (parent term name is-argument? ) #f %o25 "is-callback?" '#t))
	 (%o27 (make-thing <sequence> (parent phrases ) #f (list %o26)))
	 (%o28 "equals?")
	 (%o29 (make-thing <reference> (parent name default forbidden sanitised ) #f "ptc:sdp8.1-callback.arguments.is-callback?" '() '() '()))
	 (%o30 "lhs")
	 (%o31 (make-thing <definition> (parent term name is-argument? ) #f %o29 %o30 '#t))
	 (%o32 (make-thing <constant> (parent value ) #f '#f))
	 (%o33 "rhs")
	 (%o34 (make-thing <definition> (parent term name is-argument? ) #f %o32 %o33 '#t))
	 (%o35 (make-thing <sequence> (parent phrases ) #f (list %o31 %o34)))
	 (%o36 (make-thing <equals?> (name organisation version ) "equals?" (find-thing <system-organisation> "SYS") '0))
	 (%o37 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o28 %o35 %o36))
	 (%o38 (make-thing <constant> (parent value ) #f '#f))
	 (%o39 (make-thing <definition> (parent term name is-argument? ) #f %o38 %o11 '#f))
	 (%o40 (make-thing <constant> (parent value ) #f '#t))
	 (%o41 (make-thing <definition> (parent term name is-argument? ) #f %o40 %o20 '#f))
	 (%o42 (make-thing <constant> (parent value ) '() '#f))
	 (%o43 "ptc:greater-than?")
	 (%o44 "ptc:day-of-year")
	 (%o45 (make-thing <ptc:day-of-year> (name organisation version external-name ) "ptc:day-of-year" (find-thing <system-organisation> "SYS") '0 "dayOfYear()"))
	 (%o46 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o44 '() %o45))
	 (%o47 (make-thing <definition> (parent term name is-argument? ) #f %o46 %o30 '#t))
	 (%o48 (make-thing <constant> (parent value ) #f '355))
	 (%o49 (make-thing <definition> (parent term name is-argument? ) #f %o48 %o33 '#t))
	 (%o50 (make-thing <sequence> (parent phrases ) #f (list %o47 %o49)))
	 (%o51 (make-thing <ptc:greater-than?> (name organisation version external-name ) "ptc:greater-than?" (find-thing <system-organisation> "SYS") '0 ">"))
	 (%o52 (make-thing <invocation> (parent organisation function-name arguments function ) '() (find-thing <system-organisation> "SYS") %o43 %o50 %o51))
	 (%o53 "ptc:less-than?")
	 (%o54 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o44 '() %o45))
	 (%o55 (make-thing <definition> (parent term name is-argument? ) #f %o54 %o30 '#t))
	 (%o56 (make-thing <constant> (parent value ) #f '360))
	 (%o57 (make-thing <definition> (parent term name is-argument? ) #f %o56 %o33 '#t))
	 (%o58 (make-thing <sequence> (parent phrases ) #f (list %o55 %o57)))
	 (%o59 (make-thing <ptc:less-than?> (name organisation version external-name ) "ptc:less-than?" (find-thing <system-organisation> "SYS") '0 "<"))
	 (%o60 (make-thing <invocation> (parent organisation function-name arguments function ) '() (find-thing <system-organisation> "SYS") %o53 %o58 %o59))
	 (%o61 (make-thing <or> (parent lhs rhs ) '() %o52 %o60))
	 (%o62 (make-thing <ptc:or> (parent lhs rhs ) #f %o42 %o61))
	 (%o63 (make-thing <constant> (parent value ) #f '#f))
	 (%o64 (make-thing <definition> (parent term name is-argument? ) #f %o63 %o20 '#f))
	 (%o65 "ptc:msisdn")
	 (%o66 (make-thing <ptc:msisdn> (name organisation version external-name ) "ptc:msisdn" (find-thing <system-organisation> "SYS") '0 "msisdn()"))
	 (%o67 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o65 '() %o66))
	 (%o68 (make-thing <definition> (parent term name is-argument? ) #f %o67 %o17 '#f))
	 (%o69 (make-thing <sequence> (parent phrases ) #f (list %o68)))
	 (%o70 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o65 '() %o66))
	 (%o71 (make-thing <definition> (parent term name is-argument? ) #f %o70 %o21 '#f))
	 (%o72 (make-thing <sequence> (parent phrases ) #f (list %o71)))
	 (%o73 "ptc:instanciate-template")
	 (%o74 "SDP8.1 - SMS")
	 (%o75 (make-thing <constant> (parent value ) #f %o74))
	 (%o76 "template-name")
	 (%o77 (make-thing <definition> (parent term name is-argument? ) #f %o75 %o76 '#t))
	 (%o78 "sms.arguments")
	 (%o79 (make-thing <constant> (parent value ) #f %o78))
	 (%o80 "actuals.stem")
	 (%o81 (make-thing <definition> (parent term name is-argument? ) #f %o79 %o80 '#t))
	 (%o82 (make-thing <sequence> (parent phrases ) #f (list %o77 %o81)))
	 (%o83 (make-thing <ptc:instanciate-template> (name organisation version ) "ptc:instanciate-template" (find-thing <system-organisation> "SYS") '0))
	 (%o84 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o73 %o82 %o83))
	 (%o85 "ptc:instanciate-template.result.text")
	 (%o86 (make-thing <reference> (parent name default forbidden sanitised ) #f %o85 '() '() '()))
	 (%o87 (make-thing <definition> (parent term name is-argument? ) #f %o86 %o7 '#f))
	 (%o88 "SDP8.1 - EMAIL")
	 (%o89 (make-thing <constant> (parent value ) #f %o88))
	 (%o90 (make-thing <definition> (parent term name is-argument? ) #f %o89 %o76 '#t))
	 (%o91 "email.arguments")
	 (%o92 (make-thing <constant> (parent value ) #f %o91))
	 (%o93 (make-thing <definition> (parent term name is-argument? ) #f %o92 %o80 '#t))
	 (%o94 (make-thing <sequence> (parent phrases ) #f (list %o90 %o93)))
	 (%o95 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o73 %o94 %o83))
	 (%o96 (make-thing <reference> (parent name default forbidden sanitised ) #f %o85 '() '() '()))
	 (%o97 (make-thing <definition> (parent term name is-argument? ) #f %o96 %o9 '#f))
	 (%o98 "subscriber.preference")
	 (%o99 (make-thing <reference> (parent name default forbidden sanitised ) #f %o98 '() '() '()))
	 (%o100 (make-thing <definition> (parent term name is-argument? ) #f %o99 %o30 '#t))
	 (%o101 "BOTH")
	 (%o102 (make-thing <constant> (parent value ) #f %o101))
	 (%o103 (make-thing <definition> (parent term name is-argument? ) #f %o102 %o33 '#t))
	 (%o104 (make-thing <sequence> (parent phrases ) #f (list %o100 %o103)))
	 (%o105 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o28 %o104 %o36))
	 (%o106 "submit-short-message-with-retry")
	 (%o107 (make-thing <constant> (parent value ) #f %o19))
	 (%o108 "callback")
	 (%o109 (make-thing <definition> (parent term name is-argument? ) #f %o107 %o108 '#t))
	 (%o110 "subscriber.msisdn")
	 (%o111 (make-thing <reference> (parent name default forbidden sanitised ) #f %o110 '() '() '()))
	 (%o112 "destination")
	 (%o113 (make-thing <definition> (parent term name is-argument? ) #f %o111 %o112 '#t))
	 (%o114 "ptc:instanciate-template.result.msisdn")
	 (%o115 (make-thing <reference> (parent name default forbidden sanitised ) #f %o114 '() '() '()))
	 (%o116 "source")
	 (%o117 (make-thing <definition> (parent term name is-argument? ) #f %o115 %o116 '#t))
	 (%o118 (make-thing <constant> (parent value ) #f %o12))
	 (%o119 "validity")
	 (%o120 (make-thing <definition> (parent term name is-argument? ) #f %o118 %o119 '#t))
	 (%o121 (make-thing <reference> (parent name default forbidden sanitised ) #f %o7 '() '() '()))
	 (%o122 "message")
	 (%o123 (make-thing <definition> (parent term name is-argument? ) #f %o121 %o122 '#t))
	 (%o124 (make-thing <sequence> (parent phrases ) #f (list %o109 %o113 %o117 %o120 %o123)))
	 (%o125 validate-callback-proc)
	 (%o126 (make-thing <constant> (parent value ) #f '0))
	 (%o127 (make-thing <definition> (parent term name is-argument? ) #f %o126 %o18 '#f))
	 (%o128 (make-thing <constant> (parent value ) #f '5))
	 (%o129 (make-thing <definition> (parent term name is-argument? ) #f %o128 %o16 '#f))
	 (%o130 (make-thing <constant> (parent value ) #f '15))
	 (%o131 (make-thing <definition> (parent term name is-argument? ) #f %o130 %o15 '#f))
	 (%o132 (make-thing <constant> (parent value ) #f '60))
	 (%o133 (make-thing <definition> (parent term name is-argument? ) #f %o132 %o14 '#f))
	 (%o134 (make-thing <constant> (parent value ) #f '1440))
	 (%o135 (make-thing <definition> (parent term name is-argument? ) #f %o134 %o13 '#f))
	 (%o136 (make-thing <sequence> (parent phrases ) #f (list %o127 %o129 %o131 %o133 %o135)))
	 (%o137 (make-thing <procedure> (name organisation version expression ) "declare-sms-retry-intervals" (find-thing <system-organisation> "SYS") '0 %o136))
	 (%o138 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") "declare-sms-retry-intervals" '() %o137))
	 (%o139 define-retry-intervals-list)
	 (%o140 top-of-loop)
	 (%o141 (make-thing <reference> (parent name default forbidden sanitised ) #f "interval" '() '() '()))
	 (%o142 (make-thing <definition> (parent term name is-argument? ) #f %o141 "minutes" '#t))
	 (%o143 (make-thing <sequence> (parent phrases ) #f (list %o142)))
	 (%o144 (make-thing <hibernate> (name organisation version ) "hibernate" (find-thing <system-organisation> "SYS") '0))
	 (%o145 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") "hibernate" %o143 %o144))
	 (%o146 before-callback)
	 (%o147 (make-thing <constant> (parent value ) #f '#t))
	 (%o148 (make-thing <definition> (parent term name is-argument? ) #f %o147 "is-callback?" '#t))
	 (%o149 (make-thing <sequence> (parent phrases ) #f (list %o148)))
	 (%o150 (make-thing <deferred-invocation> (parent organisation function-name arguments function ) #f (find-thing <organisation> "TAU") %o19 %o149 #f))
	 (%o151 (make-thing <constant> (parent value ) #f "00:00:00"))
	 (%o152 (make-thing <definition> (parent term name is-argument? ) #f %o151 "sms-transmission-schedule.start-time" '#f))
	 (%o153 (make-thing <constant> (parent value ) #f "23:59:59"))
	 (%o154 (make-thing <definition> (parent term name is-argument? ) #f %o153 "sms-transmission-schedule.end-time" '#f))
	 (%o155 (make-thing <sequence> (parent phrases ) #f (list %o152 %o154)))
	 (%o156 (make-thing <procedure> (name organisation version expression ) "declare-sms-transmission-schedule" (find-thing <system-organisation> "SYS") '0 %o155))
	 (%o157 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") "declare-sms-transmission-schedule" '() %o156))
	 (%o158 bottom-of-loop)
	 (%o159 retries-exhausted)
	 (%o160 end)
	 (%o161 (list %o150 get-time-window-if-still-relevant %o157 submit-if-in-transmission-window %o158 %o159 %o160))
	 (%o162 (make-thing <submit-short-message-with-retry> (name organisation version pieces ) "submit-short-message-with-retry" (find-thing <system-organisation> "SYS") '0 (cons* %o125 %o138 %o139 %o140 %o145 %o146 %o161)))
	 (%o163 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o106 %o124 %o162))
	 (%o164 "submit-xml-email-with-retry")
	 (%o165 (make-thing <constant> (parent value ) #f %o19))
	 (%o166 (make-thing <definition> (parent term name is-argument? ) #f %o165 %o108 '#t))
	 (%o167 "subscriber.primary-email")
	 (%o168 (make-thing <reference> (parent name default forbidden sanitised ) #f %o167 '() '() '()))
	 (%o169 "rcpt-to")
	 (%o170 (make-thing <definition> (parent term name is-argument? ) #f %o168 %o169 '#t))
	 (%o171 "ptc:instanciate-template.result.from")
	 (%o172 (make-thing <reference> (parent name default forbidden sanitised ) #f %o171 '() '() '()))
	 (%o173 "mail-from")
	 (%o174 (make-thing <definition> (parent term name is-argument? ) #f %o172 %o173 '#t))
	 (%o175 "ptc:instanciate-template.result.reply-to")
	 (%o176 (make-thing <reference> (parent name default forbidden sanitised ) #f %o175 '() '() '()))
	 (%o177 "reply-to")
	 (%o178 (make-thing <definition> (parent term name is-argument? ) #f %o176 %o177 '#t))
	 (%o179 "ptc:instanciate-template.result.subject")
	 (%o180 (make-thing <reference> (parent name default forbidden sanitised ) #f %o179 '() '() '()))
	 (%o181 "subject")
	 (%o182 (make-thing <definition> (parent term name is-argument? ) #f %o180 %o181 '#t))
	 (%o183 (make-thing <reference> (parent name default forbidden sanitised ) #f %o9 '() '() '()))
	 (%o184 "xml")
	 (%o185 (make-thing <definition> (parent term name is-argument? ) #f %o183 %o184 '#t))
	 (%o186 (make-thing <sequence> (parent phrases ) #f (list %o166 %o170 %o174 %o178 %o182 %o185)))
	 (%o187 (make-thing <constant> (parent value ) #f '0))
	 (%o188 (make-thing <definition> (parent term name is-argument? ) #f %o187 "email-retry-intervals.1" '#f))
	 (%o189 (make-thing <constant> (parent value ) #f '5))
	 (%o190 (make-thing <definition> (parent term name is-argument? ) #f %o189 "email-retry-intervals.2" '#f))
	 (%o191 (make-thing <constant> (parent value ) #f '15))
	 (%o192 (make-thing <definition> (parent term name is-argument? ) #f %o191 "email-retry-intervals.3" '#f))
	 (%o193 (make-thing <constant> (parent value ) #f '60))
	 (%o194 (make-thing <definition> (parent term name is-argument? ) #f %o193 "email-retry-intervals.4" '#f))
	 (%o195 (make-thing <constant> (parent value ) #f '1440))
	 (%o196 (make-thing <definition> (parent term name is-argument? ) #f %o195 "email-retry-intervals.5" '#f))
	 (%o197 (make-thing <sequence> (parent phrases ) #f (list %o188 %o190 %o192 %o194 %o196)))
	 (%o198 (make-thing <procedure> (name organisation version expression ) "declare-email-retry-intervals" (find-thing <system-organisation> "SYS") '0 %o197))
	 (%o199 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") "declare-email-retry-intervals" '() %o198))
	 (%o200 (make-thing <reference> (parent name default forbidden sanitised ) #f "interval" '() '() '()))
	 (%o201 (make-thing <definition> (parent term name is-argument? ) #f %o200 "minutes" '#t))
	 (%o202 (make-thing <sequence> (parent phrases ) #f (list %o201)))
	 (%o203 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") "hibernate" %o202 %o144))
	 (%o204 (make-thing <constant> (parent value ) #f '#t))
	 (%o205 (make-thing <definition> (parent term name is-argument? ) #f %o204 "is-callback?" '#t))
	 (%o206 (make-thing <sequence> (parent phrases ) #f (list %o205)))
	 (%o207 (make-thing <deferred-invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") '() %o206 '()))
	 (%o208 (make-thing <submit-xml-email-with-retry> (name organisation version pieces ) "submit-xml-email-with-retry" (find-thing <system-organisation> "SYS") '0 (list %o125 %o199 %o139 %o140 %o203 %o146 %o207 submit-email-if-relevant %o158 %o159 %o160)))
	 (%o209 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o164 %o186 %o208))
	 (%o210 (make-thing <sequence> (parent phrases ) #f (list %o163 %o209)))
	 (%o211 (make-thing <reference> (parent name default forbidden sanitised ) #f %o98 '() '() '()))
	 (%o212 (make-thing <definition> (parent term name is-argument? ) #f %o211 %o30 '#t))
	 (%o213 "EMAIL")
	 (%o214 (make-thing <constant> (parent value ) #f %o213))
	 (%o215 (make-thing <definition> (parent term name is-argument? ) #f %o214 %o33 '#t))
	 (%o216 (make-thing <sequence> (parent phrases ) #f (list %o212 %o215)))
	 (%o217 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o28 %o216 %o36))
	 (%o218 (make-thing <constant> (parent value ) #f %o19))
	 (%o219 (make-thing <definition> (parent term name is-argument? ) #f %o218 %o108 '#t))
	 (%o220 (make-thing <reference> (parent name default forbidden sanitised ) #f %o167 '() '() '()))
	 (%o221 (make-thing <definition> (parent term name is-argument? ) #f %o220 %o169 '#t))
	 (%o222 (make-thing <reference> (parent name default forbidden sanitised ) #f %o171 '() '() '()))
	 (%o223 (make-thing <definition> (parent term name is-argument? ) #f %o222 %o173 '#t))
	 (%o224 (make-thing <reference> (parent name default forbidden sanitised ) #f %o175 '() '() '()))
	 (%o225 (make-thing <definition> (parent term name is-argument? ) #f %o224 %o177 '#t))
	 (%o226 (make-thing <reference> (parent name default forbidden sanitised ) #f %o179 '() '() '()))
	 (%o227 (make-thing <definition> (parent term name is-argument? ) #f %o226 %o181 '#t))
	 (%o228 (make-thing <reference> (parent name default forbidden sanitised ) #f %o9 '() '() '()))
	 (%o229 (make-thing <definition> (parent term name is-argument? ) #f %o228 %o184 '#t))
	 (%o230 (make-thing <sequence> (parent phrases ) #f (list %o219 %o221 %o223 %o225 %o227 %o229)))
	 (%o231 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o164 %o230 %o208))
	 (%o232 (make-thing <reference> (parent name default forbidden sanitised ) #f %o98 '() '() '()))
	 (%o233 (make-thing <definition> (parent term name is-argument? ) #f %o232 %o30 '#t))
	 (%o234 "SMS")
	 (%o235 (make-thing <constant> (parent value ) #f %o234))
	 (%o236 (make-thing <definition> (parent term name is-argument? ) #f %o235 %o33 '#t))
	 (%o237 (make-thing <sequence> (parent phrases ) #f (list %o233 %o236)))
	 (%o238 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o28 %o237 %o36))
	 (%o239 (make-thing <constant> (parent value ) #f %o19))
	 (%o240 (make-thing <definition> (parent term name is-argument? ) #f %o239 %o108 '#t))
	 (%o241 (make-thing <reference> (parent name default forbidden sanitised ) #f %o110 '() '() '()))
	 (%o242 (make-thing <definition> (parent term name is-argument? ) #f %o241 %o112 '#t))
	 (%o243 (make-thing <reference> (parent name default forbidden sanitised ) #f %o114 '() '() '()))
	 (%o244 (make-thing <definition> (parent term name is-argument? ) #f %o243 %o116 '#t))
	 (%o245 (make-thing <constant> (parent value ) #f %o12))
	 (%o246 (make-thing <definition> (parent term name is-argument? ) #f %o245 %o119 '#t))
	 (%o247 (make-thing <reference> (parent name default forbidden sanitised ) #f %o7 '() '() '()))
	 (%o248 (make-thing <definition> (parent term name is-argument? ) #f %o247 %o122 '#t))
	 (%o249 (make-thing <sequence> (parent phrases ) #f (list %o240 %o242 %o244 %o246 %o248)))
	 (%o250 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o106 %o249 %o162))
	 (%o251 "edr:write-stanza")
	 (%o252 (make-thing <constant> (parent value ) #f '#t))
	 (%o253 "new-file?")
	 (%o254 (make-thing <definition> (parent term name is-argument? ) #f %o252 %o253 '#t))
	 (%o255 (make-thing <constant> (parent value ) #f "new-transaction"))
	 (%o256 "context")
	 (%o257 (make-thing <definition> (parent term name is-argument? ) #f %o255 %o256 '#t))
	 (%o258 (make-thing <constant> (parent value ) #f "transaction.id"))
	 (%o259 "keys.1")
	 (%o260 (make-thing <definition> (parent term name is-argument? ) #f %o258 %o259 '#t))
	 (%o261 (make-thing <reference> (parent name default forbidden sanitised ) #f "task.id.transaction" '() '() '()))
	 (%o262 "values.1")
	 (%o263 (make-thing <definition> (parent term name is-argument? ) #f %o261 %o262 '#t))
	 (%o264 (make-thing <sequence> (parent phrases ) #f (list %o254 %o257 %o260 %o263)))
	 (%o265 (make-thing <edr:write-stanza> (name organisation version ) "edr:write-stanza" (find-thing <system-organisation> "SYS") '0))
	 (%o266 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o251 %o264 %o265))
	 (%o267 (make-thing <constant> (parent value ) #f '#f))
	 (%o268 (make-thing <definition> (parent term name is-argument? ) #f %o267 %o253 '#t))
	 (%o269 (make-thing <constant> (parent value ) #f "cancelled"))
	 (%o270 (make-thing <definition> (parent term name is-argument? ) #f %o269 %o256 '#t))
	 (%o271 (make-thing <constant> (parent value ) #f "reason"))
	 (%o272 (make-thing <definition> (parent term name is-argument? ) #f %o271 %o259 '#t))
	 (%o273 (make-thing <constant> (parent value ) #f "preference is NONE"))
	 (%o274 (make-thing <definition> (parent term name is-argument? ) #f %o273 %o262 '#t))
	 (%o275 (make-thing <sequence> (parent phrases ) #f (list %o268 %o270 %o272 %o274)))
	 (%o276 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o251 %o275 %o265))
	 (%o277 (make-thing <sequence> (parent phrases ) #f (list %o266 %o276)))
	 (%o278 (make-thing <if-then-else> (parent test then else ) #f %o238 %o250 %o277))
	 (%o279 (make-thing <if-then-else> (parent test then else ) #f %o217 %o231 %o278))
	 (%o280 (make-thing <if-then-else> (parent test then else ) #f %o105 %o210 %o279))
	 (%o281 (make-thing <constant> (parent value ) #f '#t))
	 (%o282 (make-thing <sequence> (parent phrases ) #f (list %o64 %o69 %o72 %o84 %o87 %o95 %o97 %o280 %o281)))
	 (%o283 (make-thing <constant> (parent value ) #f '#f))
	 (%o284 (make-thing <if-then-else> (parent test then else ) #f %o62 %o282 %o283))
	 (%o285 (make-thing <sequence> (parent phrases ) #f (list %o39 %o41 %o284)))
	 (%o286 (make-thing <constant> (parent value ) #f '#t))
	 (%o287 (make-thing <definition> (parent term name is-argument? ) #f %o286 %o11 '#f))
	 (%o288 (make-thing <constant> (parent value ) #f '#t))
	 (%o289 (make-thing <definition> (parent term name is-argument? ) #f %o288 %o20 '#f))
	 (%o290 (make-thing <reference> (parent name default forbidden sanitised ) #f %o110 '() '() '()))
	 (%o291 (make-thing <definition> (parent term name is-argument? ) #f %o290 "msisdn" '#t))
	 (%o292 (make-thing <sequence> (parent phrases ) #f (list %o291)))
	 (%o293 (make-thing <ucip:get-balance-and-date> (name organisation version ) "ucip:get-balance-and-date" (find-thing <system-organisation> "SYS") '0))
	 (%o294 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") "ucip:get-balance-and-date" %o292 %o293))
	 (%o295 (make-thing <constant> (parent value ) '() '#f))
	 (%o296 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o44 '() %o45))
	 (%o297 (make-thing <definition> (parent term name is-argument? ) #f %o296 %o30 '#t))
	 (%o298 (make-thing <constant> (parent value ) #f '355))
	 (%o299 (make-thing <definition> (parent term name is-argument? ) #f %o298 %o33 '#t))
	 (%o300 (make-thing <sequence> (parent phrases ) #f (list %o297 %o299)))
	 (%o301 (make-thing <invocation> (parent organisation function-name arguments function ) '() (find-thing <system-organisation> "SYS") %o43 %o300 %o51))
	 (%o302 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <system-organisation> "SYS") %o44 '() %o45))
	 (%o303 (make-thing <definition> (parent term name is-argument? ) #f %o302 %o30 '#t))
	 (%o304 (make-thing <constant> (parent value ) #f '360))
	 (%o305 (make-thing <definition> (parent term name is-argument? ) #f %o304 %o33 '#t))
	 (%o306 (make-thing <sequence> (parent phrases ) #f (list %o303 %o305)))
	 (%o307 (make-thing <invocation> (parent organisation function-name arguments function ) '() (find-thing <system-organisation> "SYS") %o53 %o306 %o59))
	 (%o308 (make-thing <or> (parent lhs rhs ) '() %o301 %o307))
	 (%o309 (make-thing <ptc:or> (parent lhs rhs ) #f %o295 %o308))
	 (%o310 (make-thing <sequence> (parent phrases ) #f (list %o287 %o289 %o294 %o309)))
	 (%o311 (make-thing <if-then-else> (parent test then else ) #f %o37 %o285 %o310))
	 (%o312 (make-thing <procedure> (name organisation version expression ) %o19 (find-thing <organisation> "TAU") '0 %o311))
	 (%o313 (make-thing <invocation> (parent organisation function-name arguments function ) #f (find-thing <organisation> "TAU") "ptc:sdp8.1-callback" %o27 %o312))
	 (%o314 (make-thing <ptc:sdp-lifecycle-trigger> (name organisation version expression priority transceivers ) "SDP8.1" (find-thing <organisation> "TAU") '0 %o313 '20 (list (find-thing <file-receiver> "SDP-RX"))))
	 (%o315 (make-thing <eval-node> (term parent value children ) %o25 #f '#f '()))
	 (%o316 (make-thing <eval-node> (term parent value children ) %o26 #f '#f (list %o315)))
	 (%o317 (make-thing <eval-node> (term parent value children ) %o27 #f '#f (list %o316)))
	 (%o318 (make-thing <eval-node> (term parent value children ) %o29 #f '#f '()))
	 (%o319 (make-thing <eval-node> (term parent value children ) %o31 #f '#f (list %o318)))
	 (%o320 (make-thing <eval-node> (term parent value children ) %o32 #f '#f '()))
	 (%o321 (make-thing <eval-node> (term parent value children ) %o34 #f '#f (list %o320)))
	 (%o322 (make-thing <eval-node> (term parent value children ) %o35 #f '#f (list %o319 %o321)))
	 (%o323 (make-thing <eval-node> (term parent value children ) %o36 #f '#t '()))
	 (%o324 (make-thing <eval-node> (term parent value children ) %o37 #f '#t (list %o322 %o323)))
	 (%o325 (make-thing <eval-node> (term parent value children ) %o38 #f '#f '()))
	 (%o326 (make-thing <eval-node> (term parent value children ) %o39 #f '#f (list %o325)))
	 (%o327 (make-thing <eval-node> (term parent value children ) %o40 #f '#t '()))
	 (%o328 (make-thing <eval-node> (term parent value children ) %o41 #f '#t (list %o327)))
	 (%o329 (make-thing <eval-node> (term parent value children ) %o42 #f '#f '()))
	 (%o330 (make-thing <eval-node> (term parent value children ) %o45 #f '319 '()))
	 (%o331 (make-thing <eval-node> (term parent value children ) %o46 #f '319 (list %o330)))
	 (%o332 (make-thing <eval-node> (term parent value children ) %o47 #f '319 (list %o331)))
	 (%o333 (make-thing <eval-node> (term parent value children ) %o48 #f '355 '()))
	 (%o334 (make-thing <eval-node> (term parent value children ) %o49 #f '355 (list %o333)))
	 (%o335 (make-thing <eval-node> (term parent value children ) %o50 #f '355 (list %o332 %o334)))
	 (%o336 (make-thing <eval-node> (term parent value children ) %o51 #f '#f '()))
	 (%o337 (make-thing <eval-node> (term parent value children ) %o52 #f '#f (list %o335 %o336)))
	 (%o338 (make-thing <eval-node> (term parent value children ) %o45 #f '319 '()))
	 (%o339 (make-thing <eval-node> (term parent value children ) %o54 #f '319 (list %o338)))
	 (%o340 (make-thing <eval-node> (term parent value children ) %o55 #f '319 (list %o339)))
	 (%o341 (make-thing <eval-node> (term parent value children ) %o56 #f '360 '()))
	 (%o342 (make-thing <eval-node> (term parent value children ) %o57 #f '360 (list %o341)))
	 (%o343 (make-thing <eval-node> (term parent value children ) %o58 #f '360 (list %o340 %o342)))
	 (%o344 (make-thing <eval-node> (term parent value children ) %o59 #f '#t '()))
	 (%o345 (make-thing <eval-node> (term parent value children ) %o60 #f '#t (list %o343 %o344)))
	 (%o346 (make-thing <eval-node> (term parent value children ) %o61 #f '#t (list %o337 %o345)))
	 (%o347 (make-thing <eval-node> (term parent value children ) %o62 #f '#t (list %o329 %o346)))
	 (%o348 (make-thing <eval-node> (term parent value children ) %o63 #f '#f '()))
	 (%o349 (make-thing <eval-node> (term parent value children ) %o64 #f '#f (list %o348)))
	 (%o350 (make-thing <eval-node> (term parent value children ) %o66 #f '61075000123 '()))
	 (%o351 (make-thing <eval-node> (term parent value children ) %o67 #f '61075000123 (list %o350)))
	 (%o352 (make-thing <eval-node> (term parent value children ) %o68 #f '61075000123 (list %o351)))
	 (%o353 (make-thing <eval-node> (term parent value children ) %o69 #f '61075000123 (list %o352)))
	 (%o354 (make-thing <eval-node> (term parent value children ) %o66 #f '61075000123 '()))
	 (%o355 (make-thing <eval-node> (term parent value children ) %o70 #f '61075000123 (list %o354)))
	 (%o356 (make-thing <eval-node> (term parent value children ) %o71 #f '61075000123 (list %o355)))
	 (%o357 (make-thing <eval-node> (term parent value children ) %o72 #f '61075000123 (list %o356)))
	 (%o358 (make-thing <eval-node> (term parent value children ) %o75 #f %o74 '()))
	 (%o359 (make-thing <eval-node> (term parent value children ) %o77 #f %o74 (list %o358)))
	 (%o360 (make-thing <eval-node> (term parent value children ) %o79 #f %o78 '()))
	 (%o361 (make-thing <eval-node> (term parent value children ) %o81 #f %o78 (list %o360)))
	 (%o362 (make-thing <eval-node> (term parent value children ) %o82 #f %o78 (list %o359 %o361)))
	 (%o363 (make-thing <eval-node> (term parent value children ) %o83 #f '#t '()))
	 (%o364 (make-thing <eval-node> (term parent value children ) %o84 #f '#t (list %o362 %o363)))
	 (%o365 (make-thing <eval-node> (term parent value children ) %o86 #f %o8 '()))
	 (%o366 (make-thing <eval-node> (term parent value children ) %o87 #f %o8 (list %o365)))
	 (%o367 (make-thing <eval-node> (term parent value children ) %o89 #f %o88 '()))
	 (%o368 (make-thing <eval-node> (term parent value children ) %o90 #f %o88 (list %o367)))
	 (%o369 (make-thing <eval-node> (term parent value children ) %o92 #f %o91 '()))
	 (%o370 (make-thing <eval-node> (term parent value children ) %o93 #f %o91 (list %o369)))
	 (%o371 (make-thing <eval-node> (term parent value children ) %o94 #f %o91 (list %o368 %o370)))
	 (%o372 (make-thing <eval-node> (term parent value children ) %o83 #f '#t '()))
	 (%o373 (make-thing <eval-node> (term parent value children ) %o95 #f '#t (list %o371 %o372)))
	 (%o374 (make-thing <eval-node> (term parent value children ) %o96 #f %o10 '()))
	 (%o375 (make-thing <eval-node> (term parent value children ) %o97 #f %o10 (list %o374)))
	 (%o376 (make-thing <eval-node> (term parent value children ) %o99 #f %o5 '()))
	 (%o377 (make-thing <eval-node> (term parent value children ) %o100 #f %o5 (list %o376)))
	 (%o378 (make-thing <eval-node> (term parent value children ) %o102 #f %o101 '()))
	 (%o379 (make-thing <eval-node> (term parent value children ) %o103 #f %o101 (list %o378)))
	 (%o380 (make-thing <eval-node> (term parent value children ) %o104 #f %o101 (list %o377 %o379)))
	 (%o381 (make-thing <eval-node> (term parent value children ) %o36 #f '#f '()))
	 (%o382 (make-thing <eval-node> (term parent value children ) %o105 #f '#f (list %o380 %o381)))
	 (%o383 (make-thing <eval-node> (term parent value children ) %o107 #f '() '()))
	 (%o384 (make-thing <eval-node> (term parent value children ) %o109 #f '() (list %o383)))
	 (%o385 (make-thing <eval-node> (term parent value children ) %o111 #f '() '()))
	 (%o386 (make-thing <eval-node> (term parent value children ) %o113 #f '() (list %o385)))
	 (%o387 (make-thing <eval-node> (term parent value children ) %o115 #f '() '()))
	 (%o388 (make-thing <eval-node> (term parent value children ) %o117 #f '() (list %o387)))
	 (%o389 (make-thing <eval-node> (term parent value children ) %o118 #f '() '()))
	 (%o390 (make-thing <eval-node> (term parent value children ) %o120 #f '() (list %o389)))
	 (%o391 (make-thing <eval-node> (term parent value children ) %o121 #f '() '()))
	 (%o392 (make-thing <eval-node> (term parent value children ) %o123 #f '() (list %o391)))
	 (%o393 (make-thing <eval-node> (term parent value children ) %o124 #f '() (list %o384 %o386 %o388 %o390 %o392)))
	 (%o394 (make-thing <eval-node> (term parent value children ) %o126 #f '() '()))
	 (%o395 (make-thing <eval-node> (term parent value children ) %o127 #f '() (list %o394)))
	 (%o396 (make-thing <eval-node> (term parent value children ) %o128 #f '() '()))
	 (%o397 (make-thing <eval-node> (term parent value children ) %o129 #f '() (list %o396)))
	 (%o398 (make-thing <eval-node> (term parent value children ) %o130 #f '() '()))
	 (%o399 (make-thing <eval-node> (term parent value children ) %o131 #f '() (list %o398)))
	 (%o400 (make-thing <eval-node> (term parent value children ) %o132 #f '() '()))
	 (%o401 (make-thing <eval-node> (term parent value children ) %o133 #f '() (list %o400)))
	 (%o402 (make-thing <eval-node> (term parent value children ) %o134 #f '() '()))
	 (%o403 (make-thing <eval-node> (term parent value children ) %o135 #f '() (list %o402)))
	 (%o404 (make-thing <eval-node> (term parent value children ) %o136 #f '() (list %o395 %o397 %o399 %o401 %o403)))
	 (%o405 (make-thing <eval-node> (term parent value children ) %o137 #f '() (list %o404)))
	 (%o406 (make-thing <eval-node> (term parent value children ) %o138 #f '() (list %o405)))
	 (%o407 (make-thing <eval-node> (term parent value children ) %o141 #f '() '()))
	 (%o408 (make-thing <eval-node> (term parent value children ) %o142 #f '() (list %o407)))
	 (%o409 (make-thing <eval-node> (term parent value children ) %o143 #f '() (list %o408)))
	 (%o410 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o411 (make-thing <eval-node> (term parent value children ) %o145 #f '() (list %o409 %o410)))
	 (%o412 (make-thing <eval-node> (term parent value children ) %o150 #f '() '()))
	 (%o413 (make-thing <eval-node> (term parent value children ) %o151 #f '() '()))
	 (%o414 (make-thing <eval-node> (term parent value children ) %o152 #f '() (list %o413)))
	 (%o415 (make-thing <eval-node> (term parent value children ) %o153 #f '() '()))
	 (%o416 (make-thing <eval-node> (term parent value children ) %o154 #f '() (list %o415)))
	 (%o417 (make-thing <eval-node> (term parent value children ) %o155 #f '() (list %o414 %o416)))
	 (%o418 (make-thing <eval-node> (term parent value children ) %o156 #f '() (list %o417)))
	 (%o419 (make-thing <eval-node> (term parent value children ) %o157 #f '() (list %o418)))
	 (%o420 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o162 #f '() (list %o406 %o411 %o412 %o419) '#f '()))
	 (%o421 (make-thing <eval-node> (term parent value children ) %o163 #f '() (list %o393 %o420)))
	 (%o422 (make-thing <eval-node> (term parent value children ) %o165 #f '() '()))
	 (%o423 (make-thing <eval-node> (term parent value children ) %o166 #f '() (list %o422)))
	 (%o424 (make-thing <eval-node> (term parent value children ) %o168 #f '() '()))
	 (%o425 (make-thing <eval-node> (term parent value children ) %o170 #f '() (list %o424)))
	 (%o426 (make-thing <eval-node> (term parent value children ) %o172 #f '() '()))
	 (%o427 (make-thing <eval-node> (term parent value children ) %o174 #f '() (list %o426)))
	 (%o428 (make-thing <eval-node> (term parent value children ) %o176 #f '() '()))
	 (%o429 (make-thing <eval-node> (term parent value children ) %o178 #f '() (list %o428)))
	 (%o430 (make-thing <eval-node> (term parent value children ) %o180 #f '() '()))
	 (%o431 (make-thing <eval-node> (term parent value children ) %o182 #f '() (list %o430)))
	 (%o432 (make-thing <eval-node> (term parent value children ) %o183 #f '() '()))
	 (%o433 (make-thing <eval-node> (term parent value children ) %o185 #f '() (list %o432)))
	 (%o434 (make-thing <eval-node> (term parent value children ) %o186 #f '() (list %o423 %o425 %o427 %o429 %o431 %o433)))
	 (%o435 (make-thing <eval-node> (term parent value children ) %o187 #f '() '()))
	 (%o436 (make-thing <eval-node> (term parent value children ) %o188 #f '() (list %o435)))
	 (%o437 (make-thing <eval-node> (term parent value children ) %o189 #f '() '()))
	 (%o438 (make-thing <eval-node> (term parent value children ) %o190 #f '() (list %o437)))
	 (%o439 (make-thing <eval-node> (term parent value children ) %o191 #f '() '()))
	 (%o440 (make-thing <eval-node> (term parent value children ) %o192 #f '() (list %o439)))
	 (%o441 (make-thing <eval-node> (term parent value children ) %o193 #f '() '()))
	 (%o442 (make-thing <eval-node> (term parent value children ) %o194 #f '() (list %o441)))
	 (%o443 (make-thing <eval-node> (term parent value children ) %o195 #f '() '()))
	 (%o444 (make-thing <eval-node> (term parent value children ) %o196 #f '() (list %o443)))
	 (%o445 (make-thing <eval-node> (term parent value children ) %o197 #f '() (list %o436 %o438 %o440 %o442 %o444)))
	 (%o446 (make-thing <eval-node> (term parent value children ) %o198 #f '() (list %o445)))
	 (%o447 (make-thing <eval-node> (term parent value children ) %o199 #f '() (list %o446)))
	 (%o448 (make-thing <eval-node> (term parent value children ) %o200 #f '() '()))
	 (%o449 (make-thing <eval-node> (term parent value children ) %o201 #f '() (list %o448)))
	 (%o450 (make-thing <eval-node> (term parent value children ) %o202 #f '() (list %o449)))
	 (%o451 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o452 (make-thing <eval-node> (term parent value children ) %o203 #f '() (list %o450 %o451)))
	 (%o453 (make-thing <eval-node> (term parent value children ) %o207 #f '() '()))
	 (%o454 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o208 #f '() (list %o447 %o452 %o453) '#f '()))
	 (%o455 (make-thing <eval-node> (term parent value children ) %o209 #f '() (list %o434 %o454)))
	 (%o456 (make-thing <eval-node> (term parent value children ) %o210 #f '() (list %o421 %o455)))
	 (%o457 (make-thing <eval-node> (term parent value children ) %o211 #f %o5 '()))
	 (%o458 (make-thing <eval-node> (term parent value children ) %o212 #f %o5 (list %o457)))
	 (%o459 (make-thing <eval-node> (term parent value children ) %o214 #f %o213 '()))
	 (%o460 (make-thing <eval-node> (term parent value children ) %o215 #f %o213 (list %o459)))
	 (%o461 (make-thing <eval-node> (term parent value children ) %o216 #f %o213 (list %o458 %o460)))
	 (%o462 (make-thing <eval-node> (term parent value children ) %o36 #f '#f '()))
	 (%o463 (make-thing <eval-node> (term parent value children ) %o217 #f '#f (list %o461 %o462)))
	 (%o464 (make-thing <eval-node> (term parent value children ) %o218 #f '() '()))
	 (%o465 (make-thing <eval-node> (term parent value children ) %o219 #f '() (list %o464)))
	 (%o466 (make-thing <eval-node> (term parent value children ) %o220 #f '() '()))
	 (%o467 (make-thing <eval-node> (term parent value children ) %o221 #f '() (list %o466)))
	 (%o468 (make-thing <eval-node> (term parent value children ) %o222 #f '() '()))
	 (%o469 (make-thing <eval-node> (term parent value children ) %o223 #f '() (list %o468)))
	 (%o470 (make-thing <eval-node> (term parent value children ) %o224 #f '() '()))
	 (%o471 (make-thing <eval-node> (term parent value children ) %o225 #f '() (list %o470)))
	 (%o472 (make-thing <eval-node> (term parent value children ) %o226 #f '() '()))
	 (%o473 (make-thing <eval-node> (term parent value children ) %o227 #f '() (list %o472)))
	 (%o474 (make-thing <eval-node> (term parent value children ) %o228 #f '() '()))
	 (%o475 (make-thing <eval-node> (term parent value children ) %o229 #f '() (list %o474)))
	 (%o476 (make-thing <eval-node> (term parent value children ) %o230 #f '() (list %o465 %o467 %o469 %o471 %o473 %o475)))
	 (%o477 (make-thing <eval-node> (term parent value children ) %o187 #f '() '()))
	 (%o478 (make-thing <eval-node> (term parent value children ) %o188 #f '() (list %o477)))
	 (%o479 (make-thing <eval-node> (term parent value children ) %o189 #f '() '()))
	 (%o480 (make-thing <eval-node> (term parent value children ) %o190 #f '() (list %o479)))
	 (%o481 (make-thing <eval-node> (term parent value children ) %o191 #f '() '()))
	 (%o482 (make-thing <eval-node> (term parent value children ) %o192 #f '() (list %o481)))
	 (%o483 (make-thing <eval-node> (term parent value children ) %o193 #f '() '()))
	 (%o484 (make-thing <eval-node> (term parent value children ) %o194 #f '() (list %o483)))
	 (%o485 (make-thing <eval-node> (term parent value children ) %o195 #f '() '()))
	 (%o486 (make-thing <eval-node> (term parent value children ) %o196 #f '() (list %o485)))
	 (%o487 (make-thing <eval-node> (term parent value children ) %o197 #f '() (list %o478 %o480 %o482 %o484 %o486)))
	 (%o488 (make-thing <eval-node> (term parent value children ) %o198 #f '() (list %o487)))
	 (%o489 (make-thing <eval-node> (term parent value children ) %o199 #f '() (list %o488)))
	 (%o490 (make-thing <eval-node> (term parent value children ) %o200 #f '() '()))
	 (%o491 (make-thing <eval-node> (term parent value children ) %o201 #f '() (list %o490)))
	 (%o492 (make-thing <eval-node> (term parent value children ) %o202 #f '() (list %o491)))
	 (%o493 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o494 (make-thing <eval-node> (term parent value children ) %o203 #f '() (list %o492 %o493)))
	 (%o495 (make-thing <eval-node> (term parent value children ) %o207 #f '() '()))
	 (%o496 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o208 #f '() (list %o489 %o494 %o495) '#f '()))
	 (%o497 (make-thing <eval-node> (term parent value children ) %o231 #f '() (list %o476 %o496)))
	 (%o498 (make-thing <eval-node> (term parent value children ) %o232 #f %o5 '()))
	 (%o499 (make-thing <eval-node> (term parent value children ) %o233 #f %o5 (list %o498)))
	 (%o500 (make-thing <eval-node> (term parent value children ) %o235 #f %o234 '()))
	 (%o501 (make-thing <eval-node> (term parent value children ) %o236 #f %o234 (list %o500)))
	 (%o502 (make-thing <eval-node> (term parent value children ) %o237 #f %o234 (list %o499 %o501)))
	 (%o503 (make-thing <eval-node> (term parent value children ) %o36 #f '#t '()))
	 (%o504 (make-thing <eval-node> (term parent value children ) %o238 #f '#t (list %o502 %o503)))
	 (%o505 (make-thing <eval-node> (term parent value children ) %o239 #f %o19 '()))
	 (%o506 (make-thing <eval-node> (term parent value children ) %o240 #f %o19 (list %o505)))
	 (%o507 (make-thing <eval-node> (term parent value children ) %o241 #f %o3 '()))
	 (%o508 (make-thing <eval-node> (term parent value children ) %o242 #f %o3 (list %o507)))
	 (%o509 (make-thing <eval-node> (term parent value children ) %o243 #f %o6 '()))
	 (%o510 (make-thing <eval-node> (term parent value children ) %o244 #f %o6 (list %o509)))
	 (%o511 (make-thing <eval-node> (term parent value children ) %o245 #f %o12 '()))
	 (%o512 (make-thing <eval-node> (term parent value children ) %o246 #f %o12 (list %o511)))
	 (%o513 (make-thing <eval-node> (term parent value children ) %o247 #f %o8 '()))
	 (%o514 (make-thing <eval-node> (term parent value children ) %o248 #f %o8 (list %o513)))
	 (%o515 (make-thing <eval-node> (term parent value children ) %o249 #f %o8 (list %o506 %o508 %o510 %o512 %o514)))
	 (%o516 (make-thing <eval-node> (term parent value children ) %o126 #f '() '()))
	 (%o517 (make-thing <eval-node> (term parent value children ) %o127 #f '() (list %o516)))
	 (%o518 (make-thing <eval-node> (term parent value children ) %o128 #f '() '()))
	 (%o519 (make-thing <eval-node> (term parent value children ) %o129 #f '() (list %o518)))
	 (%o520 (make-thing <eval-node> (term parent value children ) %o130 #f '() '()))
	 (%o521 (make-thing <eval-node> (term parent value children ) %o131 #f '() (list %o520)))
	 (%o522 (make-thing <eval-node> (term parent value children ) %o132 #f '() '()))
	 (%o523 (make-thing <eval-node> (term parent value children ) %o133 #f '() (list %o522)))
	 (%o524 (make-thing <eval-node> (term parent value children ) %o134 #f '() '()))
	 (%o525 (make-thing <eval-node> (term parent value children ) %o135 #f '() (list %o524)))
	 (%o526 (make-thing <eval-node> (term parent value children ) %o136 #f '() (list %o517 %o519 %o521 %o523 %o525)))
	 (%o527 (make-thing <eval-node> (term parent value children ) %o137 #f '() (list %o526)))
	 (%o528 (make-thing <eval-node> (term parent value children ) %o138 #f '() (list %o527)))
	 (%o529 (make-thing <eval-node> (term parent value children ) %o141 #f '() '()))
	 (%o530 (make-thing <eval-node> (term parent value children ) %o142 #f '() (list %o529)))
	 (%o531 (make-thing <eval-node> (term parent value children ) %o143 #f '() (list %o530)))
	 (%o532 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o533 (make-thing <eval-node> (term parent value children ) %o145 #f '() (list %o531 %o532)))
	 (%o534 (make-thing <eval-node> (term parent value children ) %o147 #f '#t '()))
	 (%o535 (make-thing <eval-node> (term parent value children ) %o148 #f '#t (list %o534)))
	 (%o536 (make-thing <eval-node> (term parent value children ) %o149 #f '#t (list %o535)))
	 (%o537 (make-thing <eval-node> (term parent value children ) %o29 #f '#t '()))
	 (%o538 (make-thing <eval-node> (term parent value children ) %o31 #f '#t (list %o537)))
	 (%o539 (make-thing <eval-node> (term parent value children ) %o32 #f '#f '()))
	 (%o540 (make-thing <eval-node> (term parent value children ) %o34 #f '#f (list %o539)))
	 (%o541 (make-thing <eval-node> (term parent value children ) %o35 #f '#f (list %o538 %o540)))
	 (%o542 (make-thing <eval-node> (term parent value children ) %o36 #f '#f '()))
	 (%o543 (make-thing <eval-node> (term parent value children ) %o37 #f '#f (list %o541 %o542)))
	 (%o544 (make-thing <eval-node> (term parent value children ) %o38 #f '() '()))
	 (%o545 (make-thing <eval-node> (term parent value children ) %o39 #f '() (list %o544)))
	 (%o546 (make-thing <eval-node> (term parent value children ) %o40 #f '() '()))
	 (%o547 (make-thing <eval-node> (term parent value children ) %o41 #f '() (list %o546)))
	 (%o548 (make-thing <eval-node> (term parent value children ) %o42 #f '() '()))
	 (%o549 (make-thing <eval-node> (term parent value children ) %o45 #f '() '()))
	 (%o550 (make-thing <eval-node> (term parent value children ) %o46 #f '() (list %o549)))
	 (%o551 (make-thing <eval-node> (term parent value children ) %o47 #f '() (list %o550)))
	 (%o552 (make-thing <eval-node> (term parent value children ) %o48 #f '() '()))
	 (%o553 (make-thing <eval-node> (term parent value children ) %o49 #f '() (list %o552)))
	 (%o554 (make-thing <eval-node> (term parent value children ) %o50 #f '() (list %o551 %o553)))
	 (%o555 (make-thing <eval-node> (term parent value children ) %o51 #f '() '()))
	 (%o556 (make-thing <eval-node> (term parent value children ) %o52 #f '() (list %o554 %o555)))
	 (%o557 (make-thing <eval-node> (term parent value children ) %o45 #f '() '()))
	 (%o558 (make-thing <eval-node> (term parent value children ) %o54 #f '() (list %o557)))
	 (%o559 (make-thing <eval-node> (term parent value children ) %o55 #f '() (list %o558)))
	 (%o560 (make-thing <eval-node> (term parent value children ) %o56 #f '() '()))
	 (%o561 (make-thing <eval-node> (term parent value children ) %o57 #f '() (list %o560)))
	 (%o562 (make-thing <eval-node> (term parent value children ) %o58 #f '() (list %o559 %o561)))
	 (%o563 (make-thing <eval-node> (term parent value children ) %o59 #f '() '()))
	 (%o564 (make-thing <eval-node> (term parent value children ) %o60 #f '() (list %o562 %o563)))
	 (%o565 (make-thing <eval-node> (term parent value children ) %o61 #f '() (list %o556 %o564)))
	 (%o566 (make-thing <eval-node> (term parent value children ) %o62 #f '() (list %o548 %o565)))
	 (%o567 (make-thing <eval-node> (term parent value children ) %o63 #f '() '()))
	 (%o568 (make-thing <eval-node> (term parent value children ) %o64 #f '() (list %o567)))
	 (%o569 (make-thing <eval-node> (term parent value children ) %o66 #f '() '()))
	 (%o570 (make-thing <eval-node> (term parent value children ) %o67 #f '() (list %o569)))
	 (%o571 (make-thing <eval-node> (term parent value children ) %o68 #f '() (list %o570)))
	 (%o572 (make-thing <eval-node> (term parent value children ) %o69 #f '() (list %o571)))
	 (%o573 (make-thing <eval-node> (term parent value children ) %o66 #f '() '()))
	 (%o574 (make-thing <eval-node> (term parent value children ) %o70 #f '() (list %o573)))
	 (%o575 (make-thing <eval-node> (term parent value children ) %o71 #f '() (list %o574)))
	 (%o576 (make-thing <eval-node> (term parent value children ) %o72 #f '() (list %o575)))
	 (%o577 (make-thing <eval-node> (term parent value children ) %o75 #f '() '()))
	 (%o578 (make-thing <eval-node> (term parent value children ) %o77 #f '() (list %o577)))
	 (%o579 (make-thing <eval-node> (term parent value children ) %o79 #f '() '()))
	 (%o580 (make-thing <eval-node> (term parent value children ) %o81 #f '() (list %o579)))
	 (%o581 (make-thing <eval-node> (term parent value children ) %o82 #f '() (list %o578 %o580)))
	 (%o582 (make-thing <eval-node> (term parent value children ) %o83 #f '() '()))
	 (%o583 (make-thing <eval-node> (term parent value children ) %o84 #f '() (list %o581 %o582)))
	 (%o584 (make-thing <eval-node> (term parent value children ) %o86 #f '() '()))
	 (%o585 (make-thing <eval-node> (term parent value children ) %o87 #f '() (list %o584)))
	 (%o586 (make-thing <eval-node> (term parent value children ) %o89 #f '() '()))
	 (%o587 (make-thing <eval-node> (term parent value children ) %o90 #f '() (list %o586)))
	 (%o588 (make-thing <eval-node> (term parent value children ) %o92 #f '() '()))
	 (%o589 (make-thing <eval-node> (term parent value children ) %o93 #f '() (list %o588)))
	 (%o590 (make-thing <eval-node> (term parent value children ) %o94 #f '() (list %o587 %o589)))
	 (%o591 (make-thing <eval-node> (term parent value children ) %o83 #f '() '()))
	 (%o592 (make-thing <eval-node> (term parent value children ) %o95 #f '() (list %o590 %o591)))
	 (%o593 (make-thing <eval-node> (term parent value children ) %o96 #f '() '()))
	 (%o594 (make-thing <eval-node> (term parent value children ) %o97 #f '() (list %o593)))
	 (%o595 (make-thing <eval-node> (term parent value children ) %o99 #f '() '()))
	 (%o596 (make-thing <eval-node> (term parent value children ) %o100 #f '() (list %o595)))
	 (%o597 (make-thing <eval-node> (term parent value children ) %o102 #f '() '()))
	 (%o598 (make-thing <eval-node> (term parent value children ) %o103 #f '() (list %o597)))
	 (%o599 (make-thing <eval-node> (term parent value children ) %o104 #f '() (list %o596 %o598)))
	 (%o600 (make-thing <eval-node> (term parent value children ) %o36 #f '() '()))
	 (%o601 (make-thing <eval-node> (term parent value children ) %o105 #f '() (list %o599 %o600)))
	 (%o602 (make-thing <eval-node> (term parent value children ) %o107 #f '() '()))
	 (%o603 (make-thing <eval-node> (term parent value children ) %o109 #f '() (list %o602)))
	 (%o604 (make-thing <eval-node> (term parent value children ) %o111 #f '() '()))
	 (%o605 (make-thing <eval-node> (term parent value children ) %o113 #f '() (list %o604)))
	 (%o606 (make-thing <eval-node> (term parent value children ) %o115 #f '() '()))
	 (%o607 (make-thing <eval-node> (term parent value children ) %o117 #f '() (list %o606)))
	 (%o608 (make-thing <eval-node> (term parent value children ) %o118 #f '() '()))
	 (%o609 (make-thing <eval-node> (term parent value children ) %o120 #f '() (list %o608)))
	 (%o610 (make-thing <eval-node> (term parent value children ) %o121 #f '() '()))
	 (%o611 (make-thing <eval-node> (term parent value children ) %o123 #f '() (list %o610)))
	 (%o612 (make-thing <eval-node> (term parent value children ) %o124 #f '() (list %o603 %o605 %o607 %o609 %o611)))
	 (%o613 (make-thing <eval-node> (term parent value children ) %o126 #f '() '()))
	 (%o614 (make-thing <eval-node> (term parent value children ) %o127 #f '() (list %o613)))
	 (%o615 (make-thing <eval-node> (term parent value children ) %o128 #f '() '()))
	 (%o616 (make-thing <eval-node> (term parent value children ) %o129 #f '() (list %o615)))
	 (%o617 (make-thing <eval-node> (term parent value children ) %o130 #f '() '()))
	 (%o618 (make-thing <eval-node> (term parent value children ) %o131 #f '() (list %o617)))
	 (%o619 (make-thing <eval-node> (term parent value children ) %o132 #f '() '()))
	 (%o620 (make-thing <eval-node> (term parent value children ) %o133 #f '() (list %o619)))
	 (%o621 (make-thing <eval-node> (term parent value children ) %o134 #f '() '()))
	 (%o622 (make-thing <eval-node> (term parent value children ) %o135 #f '() (list %o621)))
	 (%o623 (make-thing <eval-node> (term parent value children ) %o136 #f '() (list %o614 %o616 %o618 %o620 %o622)))
	 (%o624 (make-thing <eval-node> (term parent value children ) %o137 #f '() (list %o623)))
	 (%o625 (make-thing <eval-node> (term parent value children ) %o138 #f '() (list %o624)))
	 (%o626 (make-thing <eval-node> (term parent value children ) %o141 #f '() '()))
	 (%o627 (make-thing <eval-node> (term parent value children ) %o142 #f '() (list %o626)))
	 (%o628 (make-thing <eval-node> (term parent value children ) %o143 #f '() (list %o627)))
	 (%o629 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o630 (make-thing <eval-node> (term parent value children ) %o145 #f '() (list %o628 %o629)))
	 (%o631 (make-thing <eval-node> (term parent value children ) %o150 #f '() '()))
	 (%o632 (make-thing <eval-node> (term parent value children ) %o151 #f '() '()))
	 (%o633 (make-thing <eval-node> (term parent value children ) %o152 #f '() (list %o632)))
	 (%o634 (make-thing <eval-node> (term parent value children ) %o153 #f '() '()))
	 (%o635 (make-thing <eval-node> (term parent value children ) %o154 #f '() (list %o634)))
	 (%o636 (make-thing <eval-node> (term parent value children ) %o155 #f '() (list %o633 %o635)))
	 (%o637 (make-thing <eval-node> (term parent value children ) %o156 #f '() (list %o636)))
	 (%o638 (make-thing <eval-node> (term parent value children ) %o157 #f '() (list %o637)))
	 (%o639 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o162 #f '() (list %o625 %o630 %o631 %o638) '#f '()))
	 (%o640 (make-thing <eval-node> (term parent value children ) %o163 #f '() (list %o612 %o639)))
	 (%o641 (make-thing <eval-node> (term parent value children ) %o165 #f '() '()))
	 (%o642 (make-thing <eval-node> (term parent value children ) %o166 #f '() (list %o641)))
	 (%o643 (make-thing <eval-node> (term parent value children ) %o168 #f '() '()))
	 (%o644 (make-thing <eval-node> (term parent value children ) %o170 #f '() (list %o643)))
	 (%o645 (make-thing <eval-node> (term parent value children ) %o172 #f '() '()))
	 (%o646 (make-thing <eval-node> (term parent value children ) %o174 #f '() (list %o645)))
	 (%o647 (make-thing <eval-node> (term parent value children ) %o176 #f '() '()))
	 (%o648 (make-thing <eval-node> (term parent value children ) %o178 #f '() (list %o647)))
	 (%o649 (make-thing <eval-node> (term parent value children ) %o180 #f '() '()))
	 (%o650 (make-thing <eval-node> (term parent value children ) %o182 #f '() (list %o649)))
	 (%o651 (make-thing <eval-node> (term parent value children ) %o183 #f '() '()))
	 (%o652 (make-thing <eval-node> (term parent value children ) %o185 #f '() (list %o651)))
	 (%o653 (make-thing <eval-node> (term parent value children ) %o186 #f '() (list %o642 %o644 %o646 %o648 %o650 %o652)))
	 (%o654 (make-thing <eval-node> (term parent value children ) %o187 #f '() '()))
	 (%o655 (make-thing <eval-node> (term parent value children ) %o188 #f '() (list %o654)))
	 (%o656 (make-thing <eval-node> (term parent value children ) %o189 #f '() '()))
	 (%o657 (make-thing <eval-node> (term parent value children ) %o190 #f '() (list %o656)))
	 (%o658 (make-thing <eval-node> (term parent value children ) %o191 #f '() '()))
	 (%o659 (make-thing <eval-node> (term parent value children ) %o192 #f '() (list %o658)))
	 (%o660 (make-thing <eval-node> (term parent value children ) %o193 #f '() '()))
	 (%o661 (make-thing <eval-node> (term parent value children ) %o194 #f '() (list %o660)))
	 (%o662 (make-thing <eval-node> (term parent value children ) %o195 #f '() '()))
	 (%o663 (make-thing <eval-node> (term parent value children ) %o196 #f '() (list %o662)))
	 (%o664 (make-thing <eval-node> (term parent value children ) %o197 #f '() (list %o655 %o657 %o659 %o661 %o663)))
	 (%o665 (make-thing <eval-node> (term parent value children ) %o198 #f '() (list %o664)))
	 (%o666 (make-thing <eval-node> (term parent value children ) %o199 #f '() (list %o665)))
	 (%o667 (make-thing <eval-node> (term parent value children ) %o200 #f '() '()))
	 (%o668 (make-thing <eval-node> (term parent value children ) %o201 #f '() (list %o667)))
	 (%o669 (make-thing <eval-node> (term parent value children ) %o202 #f '() (list %o668)))
	 (%o670 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o671 (make-thing <eval-node> (term parent value children ) %o203 #f '() (list %o669 %o670)))
	 (%o672 (make-thing <eval-node> (term parent value children ) %o207 #f '() '()))
	 (%o673 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o208 #f '() (list %o666 %o671 %o672) '#f '()))
	 (%o674 (make-thing <eval-node> (term parent value children ) %o209 #f '() (list %o653 %o673)))
	 (%o675 (make-thing <eval-node> (term parent value children ) %o210 #f '() (list %o640 %o674)))
	 (%o676 (make-thing <eval-node> (term parent value children ) %o211 #f '() '()))
	 (%o677 (make-thing <eval-node> (term parent value children ) %o212 #f '() (list %o676)))
	 (%o678 (make-thing <eval-node> (term parent value children ) %o214 #f '() '()))
	 (%o679 (make-thing <eval-node> (term parent value children ) %o215 #f '() (list %o678)))
	 (%o680 (make-thing <eval-node> (term parent value children ) %o216 #f '() (list %o677 %o679)))
	 (%o681 (make-thing <eval-node> (term parent value children ) %o36 #f '() '()))
	 (%o682 (make-thing <eval-node> (term parent value children ) %o217 #f '() (list %o680 %o681)))
	 (%o683 (make-thing <eval-node> (term parent value children ) %o218 #f '() '()))
	 (%o684 (make-thing <eval-node> (term parent value children ) %o219 #f '() (list %o683)))
	 (%o685 (make-thing <eval-node> (term parent value children ) %o220 #f '() '()))
	 (%o686 (make-thing <eval-node> (term parent value children ) %o221 #f '() (list %o685)))
	 (%o687 (make-thing <eval-node> (term parent value children ) %o222 #f '() '()))
	 (%o688 (make-thing <eval-node> (term parent value children ) %o223 #f '() (list %o687)))
	 (%o689 (make-thing <eval-node> (term parent value children ) %o224 #f '() '()))
	 (%o690 (make-thing <eval-node> (term parent value children ) %o225 #f '() (list %o689)))
	 (%o691 (make-thing <eval-node> (term parent value children ) %o226 #f '() '()))
	 (%o692 (make-thing <eval-node> (term parent value children ) %o227 #f '() (list %o691)))
	 (%o693 (make-thing <eval-node> (term parent value children ) %o228 #f '() '()))
	 (%o694 (make-thing <eval-node> (term parent value children ) %o229 #f '() (list %o693)))
	 (%o695 (make-thing <eval-node> (term parent value children ) %o230 #f '() (list %o684 %o686 %o688 %o690 %o692 %o694)))
	 (%o696 (make-thing <eval-node> (term parent value children ) %o187 #f '() '()))
	 (%o697 (make-thing <eval-node> (term parent value children ) %o188 #f '() (list %o696)))
	 (%o698 (make-thing <eval-node> (term parent value children ) %o189 #f '() '()))
	 (%o699 (make-thing <eval-node> (term parent value children ) %o190 #f '() (list %o698)))
	 (%o700 (make-thing <eval-node> (term parent value children ) %o191 #f '() '()))
	 (%o701 (make-thing <eval-node> (term parent value children ) %o192 #f '() (list %o700)))
	 (%o702 (make-thing <eval-node> (term parent value children ) %o193 #f '() '()))
	 (%o703 (make-thing <eval-node> (term parent value children ) %o194 #f '() (list %o702)))
	 (%o704 (make-thing <eval-node> (term parent value children ) %o195 #f '() '()))
	 (%o705 (make-thing <eval-node> (term parent value children ) %o196 #f '() (list %o704)))
	 (%o706 (make-thing <eval-node> (term parent value children ) %o197 #f '() (list %o697 %o699 %o701 %o703 %o705)))
	 (%o707 (make-thing <eval-node> (term parent value children ) %o198 #f '() (list %o706)))
	 (%o708 (make-thing <eval-node> (term parent value children ) %o199 #f '() (list %o707)))
	 (%o709 (make-thing <eval-node> (term parent value children ) %o200 #f '() '()))
	 (%o710 (make-thing <eval-node> (term parent value children ) %o201 #f '() (list %o709)))
	 (%o711 (make-thing <eval-node> (term parent value children ) %o202 #f '() (list %o710)))
	 (%o712 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o713 (make-thing <eval-node> (term parent value children ) %o203 #f '() (list %o711 %o712)))
	 (%o714 (make-thing <eval-node> (term parent value children ) %o207 #f '() '()))
	 (%o715 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o208 #f '() (list %o708 %o713 %o714) '#f '()))
	 (%o716 (make-thing <eval-node> (term parent value children ) %o231 #f '() (list %o695 %o715)))
	 (%o717 (make-thing <eval-node> (term parent value children ) %o232 #f '() '()))
	 (%o718 (make-thing <eval-node> (term parent value children ) %o233 #f '() (list %o717)))
	 (%o719 (make-thing <eval-node> (term parent value children ) %o235 #f '() '()))
	 (%o720 (make-thing <eval-node> (term parent value children ) %o236 #f '() (list %o719)))
	 (%o721 (make-thing <eval-node> (term parent value children ) %o237 #f '() (list %o718 %o720)))
	 (%o722 (make-thing <eval-node> (term parent value children ) %o36 #f '() '()))
	 (%o723 (make-thing <eval-node> (term parent value children ) %o238 #f '() (list %o721 %o722)))
	 (%o724 (make-thing <eval-node> (term parent value children ) %o239 #f '() '()))
	 (%o725 (make-thing <eval-node> (term parent value children ) %o240 #f '() (list %o724)))
	 (%o726 (make-thing <eval-node> (term parent value children ) %o241 #f '() '()))
	 (%o727 (make-thing <eval-node> (term parent value children ) %o242 #f '() (list %o726)))
	 (%o728 (make-thing <eval-node> (term parent value children ) %o243 #f '() '()))
	 (%o729 (make-thing <eval-node> (term parent value children ) %o244 #f '() (list %o728)))
	 (%o730 (make-thing <eval-node> (term parent value children ) %o245 #f '() '()))
	 (%o731 (make-thing <eval-node> (term parent value children ) %o246 #f '() (list %o730)))
	 (%o732 (make-thing <eval-node> (term parent value children ) %o247 #f '() '()))
	 (%o733 (make-thing <eval-node> (term parent value children ) %o248 #f '() (list %o732)))
	 (%o734 (make-thing <eval-node> (term parent value children ) %o249 #f '() (list %o725 %o727 %o729 %o731 %o733)))
	 (%o735 (make-thing <eval-node> (term parent value children ) %o126 #f '() '()))
	 (%o736 (make-thing <eval-node> (term parent value children ) %o127 #f '() (list %o735)))
	 (%o737 (make-thing <eval-node> (term parent value children ) %o128 #f '() '()))
	 (%o738 (make-thing <eval-node> (term parent value children ) %o129 #f '() (list %o737)))
	 (%o739 (make-thing <eval-node> (term parent value children ) %o130 #f '() '()))
	 (%o740 (make-thing <eval-node> (term parent value children ) %o131 #f '() (list %o739)))
	 (%o741 (make-thing <eval-node> (term parent value children ) %o132 #f '() '()))
	 (%o742 (make-thing <eval-node> (term parent value children ) %o133 #f '() (list %o741)))
	 (%o743 (make-thing <eval-node> (term parent value children ) %o134 #f '() '()))
	 (%o744 (make-thing <eval-node> (term parent value children ) %o135 #f '() (list %o743)))
	 (%o745 (make-thing <eval-node> (term parent value children ) %o136 #f '() (list %o736 %o738 %o740 %o742 %o744)))
	 (%o746 (make-thing <eval-node> (term parent value children ) %o137 #f '() (list %o745)))
	 (%o747 (make-thing <eval-node> (term parent value children ) %o138 #f '() (list %o746)))
	 (%o748 (make-thing <eval-node> (term parent value children ) %o141 #f '() '()))
	 (%o749 (make-thing <eval-node> (term parent value children ) %o142 #f '() (list %o748)))
	 (%o750 (make-thing <eval-node> (term parent value children ) %o143 #f '() (list %o749)))
	 (%o751 (make-thing <eval-node> (term parent value children ) %o144 #f '() '()))
	 (%o752 (make-thing <eval-node> (term parent value children ) %o145 #f '() (list %o750 %o751)))
	 (%o753 (make-thing <eval-node> (term parent value children ) %o150 #f '() '()))
	 (%o754 (make-thing <eval-node> (term parent value children ) %o151 #f '() '()))
	 (%o755 (make-thing <eval-node> (term parent value children ) %o152 #f '() (list %o754)))
	 (%o756 (make-thing <eval-node> (term parent value children ) %o153 #f '() '()))
	 (%o757 (make-thing <eval-node> (term parent value children ) %o154 #f '() (list %o756)))
	 (%o758 (make-thing <eval-node> (term parent value children ) %o155 #f '() (list %o755 %o757)))
	 (%o759 (make-thing <eval-node> (term parent value children ) %o156 #f '() (list %o758)))
	 (%o760 (make-thing <eval-node> (term parent value children ) %o157 #f '() (list %o759)))
	 (%o761 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o162 #f '() (list %o747 %o752 %o753 %o760) '#f '()))
	 (%o762 (make-thing <eval-node> (term parent value children ) %o250 #f '() (list %o734 %o761)))
	 (%o763 (make-thing <eval-node> (term parent value children ) %o252 #f '() '()))
	 (%o764 (make-thing <eval-node> (term parent value children ) %o254 #f '() (list %o763)))
	 (%o765 (make-thing <eval-node> (term parent value children ) %o255 #f '() '()))
	 (%o766 (make-thing <eval-node> (term parent value children ) %o257 #f '() (list %o765)))
	 (%o767 (make-thing <eval-node> (term parent value children ) %o258 #f '() '()))
	 (%o768 (make-thing <eval-node> (term parent value children ) %o260 #f '() (list %o767)))
	 (%o769 (make-thing <eval-node> (term parent value children ) %o261 #f '() '()))
	 (%o770 (make-thing <eval-node> (term parent value children ) %o263 #f '() (list %o769)))
	 (%o771 (make-thing <eval-node> (term parent value children ) %o264 #f '() (list %o764 %o766 %o768 %o770)))
	 (%o772 (make-thing <eval-node> (term parent value children ) %o265 #f '() '()))
	 (%o773 (make-thing <eval-node> (term parent value children ) %o266 #f '() (list %o771 %o772)))
	 (%o774 (make-thing <eval-node> (term parent value children ) %o267 #f '() '()))
	 (%o775 (make-thing <eval-node> (term parent value children ) %o268 #f '() (list %o774)))
	 (%o776 (make-thing <eval-node> (term parent value children ) %o269 #f '() '()))
	 (%o777 (make-thing <eval-node> (term parent value children ) %o270 #f '() (list %o776)))
	 (%o778 (make-thing <eval-node> (term parent value children ) %o271 #f '() '()))
	 (%o779 (make-thing <eval-node> (term parent value children ) %o272 #f '() (list %o778)))
	 (%o780 (make-thing <eval-node> (term parent value children ) %o273 #f '() '()))
	 (%o781 (make-thing <eval-node> (term parent value children ) %o274 #f '() (list %o780)))
	 (%o782 (make-thing <eval-node> (term parent value children ) %o275 #f '() (list %o775 %o777 %o779 %o781)))
	 (%o783 (make-thing <eval-node> (term parent value children ) %o265 #f '() '()))
	 (%o784 (make-thing <eval-node> (term parent value children ) %o276 #f '() (list %o782 %o783)))
	 (%o785 (make-thing <eval-node> (term parent value children ) %o277 #f '() (list %o773 %o784)))
	 (%o786 (make-thing <eval-node> (term parent value children ) %o278 #f '() (list %o723 %o762 %o785)))
	 (%o787 (make-thing <eval-node> (term parent value children ) %o279 #f '() (list %o682 %o716 %o786)))
	 (%o788 (make-thing <eval-node> (term parent value children ) %o280 #f '() (list %o601 %o675 %o787)))
	 (%o789 (make-thing <eval-node> (term parent value children ) %o281 #f '() '()))
	 (%o790 (make-thing <eval-node> (term parent value children ) %o282 #f '() (list %o568 %o572 %o576 %o583 %o585 %o592 %o594 %o788 %o789)))
	 (%o791 (make-thing <eval-node> (term parent value children ) %o283 #f '() '()))
	 (%o792 (make-thing <eval-node> (term parent value children ) %o284 #f '() (list %o566 %o790 %o791)))
	 (%o793 (make-thing <eval-node> (term parent value children ) %o285 #f '() (list %o545 %o547 %o792)))
	 (%o794 (make-thing <eval-node> (term parent value children ) %o286 #f '#t '()))
	 (%o795 (make-thing <eval-node> (term parent value children ) %o287 #f '#t (list %o794)))
	 (%o796 (make-thing <eval-node> (term parent value children ) %o288 #f '#t '()))
	 (%o797 (make-thing <eval-node> (term parent value children ) %o289 #f '#t (list %o796)))
	 (%o798 (make-thing <eval-node> (term parent value children ) %o290 #f %o3 '()))
	 (%o799 (make-thing <eval-node> (term parent value children ) %o291 #f %o3 (list %o798)))
	 (%o800 (make-thing <eval-node> (term parent value children ) %o292 #f %o3 (list %o799)))
	 (%o801 (make-thing <eval-node> (term parent value children ) %o293 #f '() '()))
	 (%o802 (make-thing <eval-node> (term parent value children ) %o294 #f '() (list %o800 %o801)))
	 (%o803 (make-thing <eval-node> (term parent value children ) %o295 #f '() '()))
	 (%o804 (make-thing <eval-node> (term parent value children ) %o45 #f '() '()))
	 (%o805 (make-thing <eval-node> (term parent value children ) %o296 #f '() (list %o804)))
	 (%o806 (make-thing <eval-node> (term parent value children ) %o297 #f '() (list %o805)))
	 (%o807 (make-thing <eval-node> (term parent value children ) %o298 #f '() '()))
	 (%o808 (make-thing <eval-node> (term parent value children ) %o299 #f '() (list %o807)))
	 (%o809 (make-thing <eval-node> (term parent value children ) %o300 #f '() (list %o806 %o808)))
	 (%o810 (make-thing <eval-node> (term parent value children ) %o51 #f '() '()))
	 (%o811 (make-thing <eval-node> (term parent value children ) %o301 #f '() (list %o809 %o810)))
	 (%o812 (make-thing <eval-node> (term parent value children ) %o45 #f '() '()))
	 (%o813 (make-thing <eval-node> (term parent value children ) %o302 #f '() (list %o812)))
	 (%o814 (make-thing <eval-node> (term parent value children ) %o303 #f '() (list %o813)))
	 (%o815 (make-thing <eval-node> (term parent value children ) %o304 #f '() '()))
	 (%o816 (make-thing <eval-node> (term parent value children ) %o305 #f '() (list %o815)))
	 (%o817 (make-thing <eval-node> (term parent value children ) %o306 #f '() (list %o814 %o816)))
	 (%o818 (make-thing <eval-node> (term parent value children ) %o59 #f '() '()))
	 (%o819 (make-thing <eval-node> (term parent value children ) %o307 #f '() (list %o817 %o818)))
	 (%o820 (make-thing <eval-node> (term parent value children ) %o308 #f '() (list %o811 %o819)))
	 (%o821 (make-thing <eval-node> (term parent value children ) %o309 #f '() (list %o803 %o820)))
	 (%o822 (make-thing <eval-node> (term parent value children ) %o310 #f '() (list %o795 %o797 %o802 %o821)))
	 (%o823 (make-thing <eval-node> (term parent value children ) %o311 #f '() (list %o543 %o793 %o822)))
	 (%o824 (make-thing <eval-node> (term parent value children ) %o312 #f '() (list %o823)))
	 (%o825 (make-thing <eval-node> (term parent value children ) %o150 #f '() (list %o536 %o824)))
	 (%o826 (make-thing <eval-node> (term parent value children ) %o151 #f '() '()))
	 (%o827 (make-thing <eval-node> (term parent value children ) %o152 #f '() (list %o826)))
	 (%o828 (make-thing <eval-node> (term parent value children ) %o153 #f '() '()))
	 (%o829 (make-thing <eval-node> (term parent value children ) %o154 #f '() (list %o828)))
	 (%o830 (make-thing <eval-node> (term parent value children ) %o155 #f '() (list %o827 %o829)))
	 (%o831 (make-thing <eval-node> (term parent value children ) %o156 #f '() (list %o830)))
	 (%o832 (make-thing <eval-node> (term parent value children ) %o157 #f '() (list %o831)))
	 (%o833 (make-thing <eval-hybrid-function-node> (term parent value children remaining-pieces $? ) %o162 #f '() (list %o528 %o533 %o825 %o832) %o161 '#t))
	 (%o834 (make-thing <eval-node> (term parent value children ) %o250 #f '() (list %o515 %o833)))
	 (%o835 (make-thing <eval-node> (term parent value children ) %o252 #f '() '()))
	 (%o836 (make-thing <eval-node> (term parent value children ) %o254 #f '() (list %o835)))
	 (%o837 (make-thing <eval-node> (term parent value children ) %o255 #f '() '()))
	 (%o838 (make-thing <eval-node> (term parent value children ) %o257 #f '() (list %o837)))
	 (%o839 (make-thing <eval-node> (term parent value children ) %o258 #f '() '()))
	 (%o840 (make-thing <eval-node> (term parent value children ) %o260 #f '() (list %o839)))
	 (%o841 (make-thing <eval-node> (term parent value children ) %o261 #f '() '()))
	 (%o842 (make-thing <eval-node> (term parent value children ) %o263 #f '() (list %o841)))
	 (%o843 (make-thing <eval-node> (term parent value children ) %o264 #f '() (list %o836 %o838 %o840 %o842)))
	 (%o844 (make-thing <eval-node> (term parent value children ) %o265 #f '() '()))
	 (%o845 (make-thing <eval-node> (term parent value children ) %o266 #f '() (list %o843 %o844)))
	 (%o846 (make-thing <eval-node> (term parent value children ) %o267 #f '() '()))
	 (%o847 (make-thing <eval-node> (term parent value children ) %o268 #f '() (list %o846)))
	 (%o848 (make-thing <eval-node> (term parent value children ) %o269 #f '() '()))
	 (%o849 (make-thing <eval-node> (term parent value children ) %o270 #f '() (list %o848)))
	 (%o850 (make-thing <eval-node> (term parent value children ) %o271 #f '() '()))
	 (%o851 (make-thing <eval-node> (term parent value children ) %o272 #f '() (list %o850)))
	 (%o852 (make-thing <eval-node> (term parent value children ) %o273 #f '() '()))
	 (%o853 (make-thing <eval-node> (term parent value children ) %o274 #f '() (list %o852)))
	 (%o854 (make-thing <eval-node> (term parent value children ) %o275 #f '() (list %o847 %o849 %o851 %o853)))
	 (%o855 (make-thing <eval-node> (term parent value children ) %o265 #f '() '()))
	 (%o856 (make-thing <eval-node> (term parent value children ) %o276 #f '() (list %o854 %o855)))
	 (%o857 (make-thing <eval-node> (term parent value children ) %o277 #f '() (list %o845 %o856)))
	 (%o858 (make-thing <eval-node> (term parent value children ) %o278 #f '() (list %o504 %o834 %o857)))
	 (%o859 (make-thing <eval-node> (term parent value children ) %o279 #f '() (list %o463 %o497 %o858)))
	 (%o860 (make-thing <eval-node> (term parent value children ) %o280 #f '() (list %o382 %o456 %o859)))
	 (%o861 (make-thing <eval-node> (term parent value children ) %o281 #f '() '()))
	 (%o862 (make-thing <eval-node> (term parent value children ) %o282 #f '() (list %o349 %o353 %o357 %o364 %o366 %o373 %o375 %o860 %o861)))
	 (%o863 (make-thing <eval-node> (term parent value children ) %o283 #f '() '()))
	 (%o864 (make-thing <eval-node> (term parent value children ) %o284 #f '() (list %o347 %o862 %o863)))
	 (%o865 (make-thing <eval-node> (term parent value children ) %o285 #f '() (list %o326 %o328 %o864)))
	 (%o866 (make-thing <eval-node> (term parent value children ) %o286 #f '() '()))
	 (%o867 (make-thing <eval-node> (term parent value children ) %o287 #f '() (list %o866)))
	 (%o868 (make-thing <eval-node> (term parent value children ) %o288 #f '() '()))
	 (%o869 (make-thing <eval-node> (term parent value children ) %o289 #f '() (list %o868)))
	 (%o870 (make-thing <eval-node> (term parent value children ) %o290 #f '() '()))
	 (%o871 (make-thing <eval-node> (term parent value children ) %o291 #f '() (list %o870)))
	 (%o872 (make-thing <eval-node> (term parent value children ) %o292 #f '() (list %o871)))
	 (%o873 (make-thing <eval-node> (term parent value children ) %o293 #f '() '()))
	 (%o874 (make-thing <eval-node> (term parent value children ) %o294 #f '() (list %o872 %o873)))
	 (%o875 (make-thing <eval-node> (term parent value children ) %o295 #f '() '()))
	 (%o876 (make-thing <eval-node> (term parent value children ) %o45 #f '() '()))
	 (%o877 (make-thing <eval-node> (term parent value children ) %o296 #f '() (list %o876)))
	 (%o878 (make-thing <eval-node> (term parent value children ) %o297 #f '() (list %o877)))
	 (%o879 (make-thing <eval-node> (term parent value children ) %o298 #f '() '()))
	 (%o880 (make-thing <eval-node> (term parent value children ) %o299 #f '() (list %o879)))
	 (%o881 (make-thing <eval-node> (term parent value children ) %o300 #f '() (list %o878 %o880)))
	 (%o882 (make-thing <eval-node> (term parent value children ) %o51 #f '() '()))
	 (%o883 (make-thing <eval-node> (term parent value children ) %o301 #f '() (list %o881 %o882)))
	 (%o884 (make-thing <eval-node> (term parent value children ) %o45 #f '() '()))
	 (%o885 (make-thing <eval-node> (term parent value children ) %o302 #f '() (list %o884)))
	 (%o886 (make-thing <eval-node> (term parent value children ) %o303 #f '() (list %o885)))
	 (%o887 (make-thing <eval-node> (term parent value children ) %o304 #f '() '()))
	 (%o888 (make-thing <eval-node> (term parent value children ) %o305 #f '() (list %o887)))
	 (%o889 (make-thing <eval-node> (term parent value children ) %o306 #f '() (list %o886 %o888)))
	 (%o890 (make-thing <eval-node> (term parent value children ) %o59 #f '() '()))
	 (%o891 (make-thing <eval-node> (term parent value children ) %o307 #f '() (list %o889 %o890)))
	 (%o892 (make-thing <eval-node> (term parent value children ) %o308 #f '() (list %o883 %o891)))
	 (%o893 (make-thing <eval-node> (term parent value children ) %o309 #f '() (list %o875 %o892)))
	 (%o894 (make-thing <eval-node> (term parent value children ) %o310 #f '() (list %o867 %o869 %o874 %o893)))
	 (%o895 (make-thing <eval-node> (term parent value children ) %o311 #f '() (list %o324 %o865 %o894)))
	 (%o896 (make-thing <eval-node> (term parent value children ) %o312 #f '() (list %o895)))
	 (%o897 (make-thing <eval-node> (term parent value children ) %o313 #f '() (list %o317 %o896)))
	 (%o898 (make-thing <eval-node> (term parent value children ) %o314 '() '() (list %o897))))

    (set! o (make-thing <task> (id event subscriber evaluation intervention edr terminated )
			(cons (make-thing <task-transaction> (id last-task-number ) '114140035436 '0) '0)
			(make-thing <file-event> (gist timestamp channel file record-no fields cookie ) %o0 %o1 (find-thing <sdp-file-channel> "SDP-RX.sdp-0") %o2 '2 %o4 '())
			(make-thing <subscriber> (msisdn organisation primary-email alias-email preference sms-msisdn ) %o3 (find-thing <organisation> "TAU") '() '() %o5 '())
			(make-thing <evaluation> (org-graph org-node eval-graph eval-node ) %o24 %o23 %o898 %o801)
			'()
			"ngw-2013-11-15T09-50-35-114140035436.edr"
			'#f))

    (set! (parent %o23) %o24)
    (set! (parent %o25) %o26)
    (set! (parent %o26) %o27)
    (set! (parent %o27) %o313)
    (set! (parent %o29) %o31)
    (set! (parent %o31) %o35)
    (set! (parent %o32) %o34)
    (set! (parent %o34) %o35)
    (set! (parent %o35) %o37)
    (set! (parent %o37) %o311)
    (set! (parent %o38) %o39)
    (set! (parent %o39) %o285)
    (set! (parent %o40) %o41)
    (set! (parent %o41) %o285)
    (set! (parent %o46) %o47)
    (set! (parent %o47) %o50)
    (set! (parent %o48) %o49)
    (set! (parent %o49) %o50)
    (set! (parent %o50) %o52)
    (set! (parent %o54) %o55)
    (set! (parent %o55) %o58)
    (set! (parent %o56) %o57)
    (set! (parent %o57) %o58)
    (set! (parent %o58) %o60)
    (set! (parent %o62) %o284)
    (set! (parent %o63) %o64)
    (set! (parent %o64) %o282)
    (set! (parent %o67) %o68)
    (set! (parent %o68) %o69)
    (set! (parent %o69) %o282)
    (set! (parent %o70) %o71)
    (set! (parent %o71) %o72)
    (set! (parent %o72) %o282)
    (set! (parent %o75) %o77)
    (set! (parent %o77) %o82)
    (set! (parent %o79) %o81)
    (set! (parent %o81) %o82)
    (set! (parent %o82) %o84)
    (set! (parent %o84) %o282)
    (set! (parent %o86) %o87)
    (set! (parent %o87) %o282)
    (set! (parent %o89) %o90)
    (set! (parent %o90) %o94)
    (set! (parent %o92) %o93)
    (set! (parent %o93) %o94)
    (set! (parent %o94) %o95)
    (set! (parent %o95) %o282)
    (set! (parent %o96) %o97)
    (set! (parent %o97) %o282)
    (set! (parent %o99) %o100)
    (set! (parent %o100) %o104)
    (set! (parent %o102) %o103)
    (set! (parent %o103) %o104)
    (set! (parent %o104) %o105)
    (set! (parent %o105) %o280)
    (set! (parent %o107) %o109)
    (set! (parent %o109) %o124)
    (set! (parent %o111) %o113)
    (set! (parent %o113) %o124)
    (set! (parent %o115) %o117)
    (set! (parent %o117) %o124)
    (set! (parent %o118) %o120)
    (set! (parent %o120) %o124)
    (set! (parent %o121) %o123)
    (set! (parent %o123) %o124)
    (set! (parent %o124) %o163)
    (set! (parent %o126) %o127)
    (set! (parent %o127) %o136)
    (set! (parent %o128) %o129)
    (set! (parent %o129) %o136)
    (set! (parent %o130) %o131)
    (set! (parent %o131) %o136)
    (set! (parent %o132) %o133)
    (set! (parent %o133) %o136)
    (set! (parent %o134) %o135)
    (set! (parent %o135) %o136)
    (set! (parent %o136) %o137)
    (set! (parent %o138) %o162)
    (set! (parent %o141) %o142)
    (set! (parent %o142) %o143)
    (set! (parent %o143) %o145)
    (set! (parent %o145) %o162)
    (set! (parent %o147) %o148)
    (set! (parent %o148) %o149)
    (set! (parent %o149) %o150)
    (set! (parent %o150) %o162)
    (set! (function %o150) %o312)
    (set! (parent %o151) %o152)
    (set! (parent %o152) %o155)
    (set! (parent %o153) %o154)
    (set! (parent %o154) %o155)
    (set! (parent %o155) %o156)
    (set! (parent %o157) %o162)
    (set! (parent %o163) %o210)
    (set! (parent %o165) %o166)
    (set! (parent %o166) %o186)
    (set! (parent %o168) %o170)
    (set! (parent %o170) %o186)
    (set! (parent %o172) %o174)
    (set! (parent %o174) %o186)
    (set! (parent %o176) %o178)
    (set! (parent %o178) %o186)
    (set! (parent %o180) %o182)
    (set! (parent %o182) %o186)
    (set! (parent %o183) %o185)
    (set! (parent %o185) %o186)
    (set! (parent %o186) %o209)
    (set! (parent %o187) %o188)
    (set! (parent %o188) %o197)
    (set! (parent %o189) %o190)
    (set! (parent %o190) %o197)
    (set! (parent %o191) %o192)
    (set! (parent %o192) %o197)
    (set! (parent %o193) %o194)
    (set! (parent %o194) %o197)
    (set! (parent %o195) %o196)
    (set! (parent %o196) %o197)
    (set! (parent %o197) %o198)
    (set! (parent %o199) %o208)
    (set! (parent %o200) %o201)
    (set! (parent %o201) %o202)
    (set! (parent %o202) %o203)
    (set! (parent %o203) %o208)
    (set! (parent %o204) %o205)
    (set! (parent %o205) %o206)
    (set! (parent %o206) %o207)
    (set! (parent %o207) %o208)
    (set! (parent %o209) %o210)
    (set! (parent %o210) %o280)
    (set! (parent %o211) %o212)
    (set! (parent %o212) %o216)
    (set! (parent %o214) %o215)
    (set! (parent %o215) %o216)
    (set! (parent %o216) %o217)
    (set! (parent %o217) %o279)
    (set! (parent %o218) %o219)
    (set! (parent %o219) %o230)
    (set! (parent %o220) %o221)
    (set! (parent %o221) %o230)
    (set! (parent %o222) %o223)
    (set! (parent %o223) %o230)
    (set! (parent %o224) %o225)
    (set! (parent %o225) %o230)
    (set! (parent %o226) %o227)
    (set! (parent %o227) %o230)
    (set! (parent %o228) %o229)
    (set! (parent %o229) %o230)
    (set! (parent %o230) %o231)
    (set! (parent %o231) %o279)
    (set! (parent %o232) %o233)
    (set! (parent %o233) %o237)
    (set! (parent %o235) %o236)
    (set! (parent %o236) %o237)
    (set! (parent %o237) %o238)
    (set! (parent %o238) %o278)
    (set! (parent %o239) %o240)
    (set! (parent %o240) %o249)
    (set! (parent %o241) %o242)
    (set! (parent %o242) %o249)
    (set! (parent %o243) %o244)
    (set! (parent %o244) %o249)
    (set! (parent %o245) %o246)
    (set! (parent %o246) %o249)
    (set! (parent %o247) %o248)
    (set! (parent %o248) %o249)
    (set! (parent %o249) %o250)
    (set! (parent %o250) %o278)
    (set! (parent %o252) %o254)
    (set! (parent %o254) %o264)
    (set! (parent %o255) %o257)
    (set! (parent %o257) %o264)
    (set! (parent %o258) %o260)
    (set! (parent %o260) %o264)
    (set! (parent %o261) %o263)
    (set! (parent %o263) %o264)
    (set! (parent %o264) %o266)
    (set! (parent %o266) %o277)
    (set! (parent %o267) %o268)
    (set! (parent %o268) %o275)
    (set! (parent %o269) %o270)
    (set! (parent %o270) %o275)
    (set! (parent %o271) %o272)
    (set! (parent %o272) %o275)
    (set! (parent %o273) %o274)
    (set! (parent %o274) %o275)
    (set! (parent %o275) %o276)
    (set! (parent %o276) %o277)
    (set! (parent %o277) %o278)
    (set! (parent %o278) %o279)
    (set! (parent %o279) %o280)
    (set! (parent %o280) %o282)
    (set! (parent %o281) %o282)
    (set! (parent %o282) %o284)
    (set! (parent %o283) %o284)
    (set! (parent %o284) %o285)
    (set! (parent %o285) %o311)
    (set! (parent %o286) %o287)
    (set! (parent %o287) %o310)
    (set! (parent %o288) %o289)
    (set! (parent %o289) %o310)
    (set! (parent %o290) %o291)
    (set! (parent %o291) %o292)
    (set! (parent %o292) %o294)
    (set! (parent %o294) %o310)
    (set! (parent %o296) %o297)
    (set! (parent %o297) %o300)
    (set! (parent %o298) %o299)
    (set! (parent %o299) %o300)
    (set! (parent %o300) %o301)
    (set! (parent %o302) %o303)
    (set! (parent %o303) %o306)
    (set! (parent %o304) %o305)
    (set! (parent %o305) %o306)
    (set! (parent %o306) %o307)
    (set! (parent %o309) %o310)
    (set! (parent %o310) %o311)
    (set! (parent %o311) %o312)
    (set! (parent %o313) %o314)
    (set! (parent %o315) %o316)
    (set! (parent %o316) %o317)
    (set! (parent %o317) %o897)
    (set! (parent %o318) %o319)
    (set! (parent %o319) %o322)
    (set! (parent %o320) %o321)
    (set! (parent %o321) %o322)
    (set! (parent %o322) %o324)
    (set! (parent %o323) %o324)
    (set! (parent %o324) %o895)
    (set! (parent %o325) %o326)
    (set! (parent %o326) %o865)
    (set! (parent %o327) %o328)
    (set! (parent %o328) %o865)
    (set! (parent %o329) %o347)
    (set! (parent %o330) %o331)
    (set! (parent %o331) %o332)
    (set! (parent %o332) %o335)
    (set! (parent %o333) %o334)
    (set! (parent %o334) %o335)
    (set! (parent %o335) %o337)
    (set! (parent %o336) %o337)
    (set! (parent %o337) %o346)
    (set! (parent %o338) %o339)
    (set! (parent %o339) %o340)
    (set! (parent %o340) %o343)
    (set! (parent %o341) %o342)
    (set! (parent %o342) %o343)
    (set! (parent %o343) %o345)
    (set! (parent %o344) %o345)
    (set! (parent %o345) %o346)
    (set! (parent %o346) %o347)
    (set! (parent %o347) %o864)
    (set! (parent %o348) %o349)
    (set! (parent %o349) %o862)
    (set! (parent %o350) %o351)
    (set! (parent %o351) %o352)
    (set! (parent %o352) %o353)
    (set! (parent %o353) %o862)
    (set! (parent %o354) %o355)
    (set! (parent %o355) %o356)
    (set! (parent %o356) %o357)
    (set! (parent %o357) %o862)
    (set! (parent %o358) %o359)
    (set! (parent %o359) %o362)
    (set! (parent %o360) %o361)
    (set! (parent %o361) %o362)
    (set! (parent %o362) %o364)
    (set! (parent %o363) %o364)
    (set! (parent %o364) %o862)
    (set! (parent %o365) %o366)
    (set! (parent %o366) %o862)
    (set! (parent %o367) %o368)
    (set! (parent %o368) %o371)
    (set! (parent %o369) %o370)
    (set! (parent %o370) %o371)
    (set! (parent %o371) %o373)
    (set! (parent %o372) %o373)
    (set! (parent %o373) %o862)
    (set! (parent %o374) %o375)
    (set! (parent %o375) %o862)
    (set! (parent %o376) %o377)
    (set! (parent %o377) %o380)
    (set! (parent %o378) %o379)
    (set! (parent %o379) %o380)
    (set! (parent %o380) %o382)
    (set! (parent %o381) %o382)
    (set! (parent %o382) %o860)
    (set! (parent %o383) %o384)
    (set! (parent %o384) %o393)
    (set! (parent %o385) %o386)
    (set! (parent %o386) %o393)
    (set! (parent %o387) %o388)
    (set! (parent %o388) %o393)
    (set! (parent %o389) %o390)
    (set! (parent %o390) %o393)
    (set! (parent %o391) %o392)
    (set! (parent %o392) %o393)
    (set! (parent %o393) %o421)
    (set! (parent %o394) %o395)
    (set! (parent %o395) %o404)
    (set! (parent %o396) %o397)
    (set! (parent %o397) %o404)
    (set! (parent %o398) %o399)
    (set! (parent %o399) %o404)
    (set! (parent %o400) %o401)
    (set! (parent %o401) %o404)
    (set! (parent %o402) %o403)
    (set! (parent %o403) %o404)
    (set! (parent %o404) %o405)
    (set! (parent %o405) %o406)
    (set! (parent %o406) %o420)
    (set! (parent %o407) %o408)
    (set! (parent %o408) %o409)
    (set! (parent %o409) %o411)
    (set! (parent %o410) %o411)
    (set! (parent %o411) %o420)
    (set! (parent %o412) %o420)
    (set! (parent %o413) %o414)
    (set! (parent %o414) %o417)
    (set! (parent %o415) %o416)
    (set! (parent %o416) %o417)
    (set! (parent %o417) %o418)
    (set! (parent %o418) %o419)
    (set! (parent %o419) %o420)
    (set! (parent %o420) %o421)
    (set! (parent %o421) %o456)
    (set! (parent %o422) %o423)
    (set! (parent %o423) %o434)
    (set! (parent %o424) %o425)
    (set! (parent %o425) %o434)
    (set! (parent %o426) %o427)
    (set! (parent %o427) %o434)
    (set! (parent %o428) %o429)
    (set! (parent %o429) %o434)
    (set! (parent %o430) %o431)
    (set! (parent %o431) %o434)
    (set! (parent %o432) %o433)
    (set! (parent %o433) %o434)
    (set! (parent %o434) %o455)
    (set! (parent %o435) %o436)
    (set! (parent %o436) %o445)
    (set! (parent %o437) %o438)
    (set! (parent %o438) %o445)
    (set! (parent %o439) %o440)
    (set! (parent %o440) %o445)
    (set! (parent %o441) %o442)
    (set! (parent %o442) %o445)
    (set! (parent %o443) %o444)
    (set! (parent %o444) %o445)
    (set! (parent %o445) %o446)
    (set! (parent %o446) %o447)
    (set! (parent %o447) %o454)
    (set! (parent %o448) %o449)
    (set! (parent %o449) %o450)
    (set! (parent %o450) %o452)
    (set! (parent %o451) %o452)
    (set! (parent %o452) %o454)
    (set! (parent %o453) %o454)
    (set! (parent %o454) %o455)
    (set! (parent %o455) %o456)
    (set! (parent %o456) %o860)
    (set! (parent %o457) %o458)
    (set! (parent %o458) %o461)
    (set! (parent %o459) %o460)
    (set! (parent %o460) %o461)
    (set! (parent %o461) %o463)
    (set! (parent %o462) %o463)
    (set! (parent %o463) %o859)
    (set! (parent %o464) %o465)
    (set! (parent %o465) %o476)
    (set! (parent %o466) %o467)
    (set! (parent %o467) %o476)
    (set! (parent %o468) %o469)
    (set! (parent %o469) %o476)
    (set! (parent %o470) %o471)
    (set! (parent %o471) %o476)
    (set! (parent %o472) %o473)
    (set! (parent %o473) %o476)
    (set! (parent %o474) %o475)
    (set! (parent %o475) %o476)
    (set! (parent %o476) %o497)
    (set! (parent %o477) %o478)
    (set! (parent %o478) %o487)
    (set! (parent %o479) %o480)
    (set! (parent %o480) %o487)
    (set! (parent %o481) %o482)
    (set! (parent %o482) %o487)
    (set! (parent %o483) %o484)
    (set! (parent %o484) %o487)
    (set! (parent %o485) %o486)
    (set! (parent %o486) %o487)
    (set! (parent %o487) %o488)
    (set! (parent %o488) %o489)
    (set! (parent %o489) %o496)
    (set! (parent %o490) %o491)
    (set! (parent %o491) %o492)
    (set! (parent %o492) %o494)
    (set! (parent %o493) %o494)
    (set! (parent %o494) %o496)
    (set! (parent %o495) %o496)
    (set! (parent %o496) %o497)
    (set! (parent %o497) %o859)
    (set! (parent %o498) %o499)
    (set! (parent %o499) %o502)
    (set! (parent %o500) %o501)
    (set! (parent %o501) %o502)
    (set! (parent %o502) %o504)
    (set! (parent %o503) %o504)
    (set! (parent %o504) %o858)
    (set! (parent %o505) %o506)
    (set! (parent %o506) %o515)
    (set! (parent %o507) %o508)
    (set! (parent %o508) %o515)
    (set! (parent %o509) %o510)
    (set! (parent %o510) %o515)
    (set! (parent %o511) %o512)
    (set! (parent %o512) %o515)
    (set! (parent %o513) %o514)
    (set! (parent %o514) %o515)
    (set! (parent %o515) %o834)
    (set! (parent %o516) %o517)
    (set! (parent %o517) %o526)
    (set! (parent %o518) %o519)
    (set! (parent %o519) %o526)
    (set! (parent %o520) %o521)
    (set! (parent %o521) %o526)
    (set! (parent %o522) %o523)
    (set! (parent %o523) %o526)
    (set! (parent %o524) %o525)
    (set! (parent %o525) %o526)
    (set! (parent %o526) %o527)
    (set! (parent %o527) %o528)
    (set! (parent %o528) %o833)
    (set! (parent %o529) %o530)
    (set! (parent %o530) %o531)
    (set! (parent %o531) %o533)
    (set! (parent %o532) %o533)
    (set! (parent %o533) %o833)
    (set! (parent %o534) %o535)
    (set! (parent %o535) %o536)
    (set! (parent %o536) %o825)
    (set! (parent %o537) %o538)
    (set! (parent %o538) %o541)
    (set! (parent %o539) %o540)
    (set! (parent %o540) %o541)
    (set! (parent %o541) %o543)
    (set! (parent %o542) %o543)
    (set! (parent %o543) %o823)
    (set! (parent %o544) %o545)
    (set! (parent %o545) %o793)
    (set! (parent %o546) %o547)
    (set! (parent %o547) %o793)
    (set! (parent %o548) %o566)
    (set! (parent %o549) %o550)
    (set! (parent %o550) %o551)
    (set! (parent %o551) %o554)
    (set! (parent %o552) %o553)
    (set! (parent %o553) %o554)
    (set! (parent %o554) %o556)
    (set! (parent %o555) %o556)
    (set! (parent %o556) %o565)
    (set! (parent %o557) %o558)
    (set! (parent %o558) %o559)
    (set! (parent %o559) %o562)
    (set! (parent %o560) %o561)
    (set! (parent %o561) %o562)
    (set! (parent %o562) %o564)
    (set! (parent %o563) %o564)
    (set! (parent %o564) %o565)
    (set! (parent %o565) %o566)
    (set! (parent %o566) %o792)
    (set! (parent %o567) %o568)
    (set! (parent %o568) %o790)
    (set! (parent %o569) %o570)
    (set! (parent %o570) %o571)
    (set! (parent %o571) %o572)
    (set! (parent %o572) %o790)
    (set! (parent %o573) %o574)
    (set! (parent %o574) %o575)
    (set! (parent %o575) %o576)
    (set! (parent %o576) %o790)
    (set! (parent %o577) %o578)
    (set! (parent %o578) %o581)
    (set! (parent %o579) %o580)
    (set! (parent %o580) %o581)
    (set! (parent %o581) %o583)
    (set! (parent %o582) %o583)
    (set! (parent %o583) %o790)
    (set! (parent %o584) %o585)
    (set! (parent %o585) %o790)
    (set! (parent %o586) %o587)
    (set! (parent %o587) %o590)
    (set! (parent %o588) %o589)
    (set! (parent %o589) %o590)
    (set! (parent %o590) %o592)
    (set! (parent %o591) %o592)
    (set! (parent %o592) %o790)
    (set! (parent %o593) %o594)
    (set! (parent %o594) %o790)
    (set! (parent %o595) %o596)
    (set! (parent %o596) %o599)
    (set! (parent %o597) %o598)
    (set! (parent %o598) %o599)
    (set! (parent %o599) %o601)
    (set! (parent %o600) %o601)
    (set! (parent %o601) %o788)
    (set! (parent %o602) %o603)
    (set! (parent %o603) %o612)
    (set! (parent %o604) %o605)
    (set! (parent %o605) %o612)
    (set! (parent %o606) %o607)
    (set! (parent %o607) %o612)
    (set! (parent %o608) %o609)
    (set! (parent %o609) %o612)
    (set! (parent %o610) %o611)
    (set! (parent %o611) %o612)
    (set! (parent %o612) %o640)
    (set! (parent %o613) %o614)
    (set! (parent %o614) %o623)
    (set! (parent %o615) %o616)
    (set! (parent %o616) %o623)
    (set! (parent %o617) %o618)
    (set! (parent %o618) %o623)
    (set! (parent %o619) %o620)
    (set! (parent %o620) %o623)
    (set! (parent %o621) %o622)
    (set! (parent %o622) %o623)
    (set! (parent %o623) %o624)
    (set! (parent %o624) %o625)
    (set! (parent %o625) %o639)
    (set! (parent %o626) %o627)
    (set! (parent %o627) %o628)
    (set! (parent %o628) %o630)
    (set! (parent %o629) %o630)
    (set! (parent %o630) %o639)
    (set! (parent %o631) %o639)
    (set! (parent %o632) %o633)
    (set! (parent %o633) %o636)
    (set! (parent %o634) %o635)
    (set! (parent %o635) %o636)
    (set! (parent %o636) %o637)
    (set! (parent %o637) %o638)
    (set! (parent %o638) %o639)
    (set! (parent %o639) %o640)
    (set! (parent %o640) %o675)
    (set! (parent %o641) %o642)
    (set! (parent %o642) %o653)
    (set! (parent %o643) %o644)
    (set! (parent %o644) %o653)
    (set! (parent %o645) %o646)
    (set! (parent %o646) %o653)
    (set! (parent %o647) %o648)
    (set! (parent %o648) %o653)
    (set! (parent %o649) %o650)
    (set! (parent %o650) %o653)
    (set! (parent %o651) %o652)
    (set! (parent %o652) %o653)
    (set! (parent %o653) %o674)
    (set! (parent %o654) %o655)
    (set! (parent %o655) %o664)
    (set! (parent %o656) %o657)
    (set! (parent %o657) %o664)
    (set! (parent %o658) %o659)
    (set! (parent %o659) %o664)
    (set! (parent %o660) %o661)
    (set! (parent %o661) %o664)
    (set! (parent %o662) %o663)
    (set! (parent %o663) %o664)
    (set! (parent %o664) %o665)
    (set! (parent %o665) %o666)
    (set! (parent %o666) %o673)
    (set! (parent %o667) %o668)
    (set! (parent %o668) %o669)
    (set! (parent %o669) %o671)
    (set! (parent %o670) %o671)
    (set! (parent %o671) %o673)
    (set! (parent %o672) %o673)
    (set! (parent %o673) %o674)
    (set! (parent %o674) %o675)
    (set! (parent %o675) %o788)
    (set! (parent %o676) %o677)
    (set! (parent %o677) %o680)
    (set! (parent %o678) %o679)
    (set! (parent %o679) %o680)
    (set! (parent %o680) %o682)
    (set! (parent %o681) %o682)
    (set! (parent %o682) %o787)
    (set! (parent %o683) %o684)
    (set! (parent %o684) %o695)
    (set! (parent %o685) %o686)
    (set! (parent %o686) %o695)
    (set! (parent %o687) %o688)
    (set! (parent %o688) %o695)
    (set! (parent %o689) %o690)
    (set! (parent %o690) %o695)
    (set! (parent %o691) %o692)
    (set! (parent %o692) %o695)
    (set! (parent %o693) %o694)
    (set! (parent %o694) %o695)
    (set! (parent %o695) %o716)
    (set! (parent %o696) %o697)
    (set! (parent %o697) %o706)
    (set! (parent %o698) %o699)
    (set! (parent %o699) %o706)
    (set! (parent %o700) %o701)
    (set! (parent %o701) %o706)
    (set! (parent %o702) %o703)
    (set! (parent %o703) %o706)
    (set! (parent %o704) %o705)
    (set! (parent %o705) %o706)
    (set! (parent %o706) %o707)
    (set! (parent %o707) %o708)
    (set! (parent %o708) %o715)
    (set! (parent %o709) %o710)
    (set! (parent %o710) %o711)
    (set! (parent %o711) %o713)
    (set! (parent %o712) %o713)
    (set! (parent %o713) %o715)
    (set! (parent %o714) %o715)
    (set! (parent %o715) %o716)
    (set! (parent %o716) %o787)
    (set! (parent %o717) %o718)
    (set! (parent %o718) %o721)
    (set! (parent %o719) %o720)
    (set! (parent %o720) %o721)
    (set! (parent %o721) %o723)
    (set! (parent %o722) %o723)
    (set! (parent %o723) %o786)
    (set! (parent %o724) %o725)
    (set! (parent %o725) %o734)
    (set! (parent %o726) %o727)
    (set! (parent %o727) %o734)
    (set! (parent %o728) %o729)
    (set! (parent %o729) %o734)
    (set! (parent %o730) %o731)
    (set! (parent %o731) %o734)
    (set! (parent %o732) %o733)
    (set! (parent %o733) %o734)
    (set! (parent %o734) %o762)
    (set! (parent %o735) %o736)
    (set! (parent %o736) %o745)
    (set! (parent %o737) %o738)
    (set! (parent %o738) %o745)
    (set! (parent %o739) %o740)
    (set! (parent %o740) %o745)
    (set! (parent %o741) %o742)
    (set! (parent %o742) %o745)
    (set! (parent %o743) %o744)
    (set! (parent %o744) %o745)
    (set! (parent %o745) %o746)
    (set! (parent %o746) %o747)
    (set! (parent %o747) %o761)
    (set! (parent %o748) %o749)
    (set! (parent %o749) %o750)
    (set! (parent %o750) %o752)
    (set! (parent %o751) %o752)
    (set! (parent %o752) %o761)
    (set! (parent %o753) %o761)
    (set! (parent %o754) %o755)
    (set! (parent %o755) %o758)
    (set! (parent %o756) %o757)
    (set! (parent %o757) %o758)
    (set! (parent %o758) %o759)
    (set! (parent %o759) %o760)
    (set! (parent %o760) %o761)
    (set! (parent %o761) %o762)
    (set! (parent %o762) %o786)
    (set! (parent %o763) %o764)
    (set! (parent %o764) %o771)
    (set! (parent %o765) %o766)
    (set! (parent %o766) %o771)
    (set! (parent %o767) %o768)
    (set! (parent %o768) %o771)
    (set! (parent %o769) %o770)
    (set! (parent %o770) %o771)
    (set! (parent %o771) %o773)
    (set! (parent %o772) %o773)
    (set! (parent %o773) %o785)
    (set! (parent %o774) %o775)
    (set! (parent %o775) %o782)
    (set! (parent %o776) %o777)
    (set! (parent %o777) %o782)
    (set! (parent %o778) %o779)
    (set! (parent %o779) %o782)
    (set! (parent %o780) %o781)
    (set! (parent %o781) %o782)
    (set! (parent %o782) %o784)
    (set! (parent %o783) %o784)
    (set! (parent %o784) %o785)
    (set! (parent %o785) %o786)
    (set! (parent %o786) %o787)
    (set! (parent %o787) %o788)
    (set! (parent %o788) %o790)
    (set! (parent %o789) %o790)
    (set! (parent %o790) %o792)
    (set! (parent %o791) %o792)
    (set! (parent %o792) %o793)
    (set! (parent %o793) %o823)
    (set! (parent %o794) %o795)
    (set! (parent %o795) %o822)
    (set! (parent %o796) %o797)
    (set! (parent %o797) %o822)
    (set! (parent %o798) %o799)
    (set! (parent %o799) %o800)
    (set! (parent %o800) %o802)
    (set! (parent %o801) %o802)
    (set! (parent %o802) %o822)
    (set! (parent %o803) %o821)
    (set! (parent %o804) %o805)
    (set! (parent %o805) %o806)
    (set! (parent %o806) %o809)
    (set! (parent %o807) %o808)
    (set! (parent %o808) %o809)
    (set! (parent %o809) %o811)
    (set! (parent %o810) %o811)
    (set! (parent %o811) %o820)
    (set! (parent %o812) %o813)
    (set! (parent %o813) %o814)
    (set! (parent %o814) %o817)
    (set! (parent %o815) %o816)
    (set! (parent %o816) %o817)
    (set! (parent %o817) %o819)
    (set! (parent %o818) %o819)
    (set! (parent %o819) %o820)
    (set! (parent %o820) %o821)
    (set! (parent %o821) %o822)
    (set! (parent %o822) %o823)
    (set! (parent %o823) %o824)
    (set! (parent %o824) %o825)
    (set! (parent %o825) %o833)
    (set! (parent %o826) %o827)
    (set! (parent %o827) %o830)
    (set! (parent %o828) %o829)
    (set! (parent %o829) %o830)
    (set! (parent %o830) %o831)
    (set! (parent %o831) %o832)
    (set! (parent %o832) %o833)
    (set! (parent %o833) %o834)
    (set! (parent %o834) %o858)
    (set! (parent %o835) %o836)
    (set! (parent %o836) %o843)
    (set! (parent %o837) %o838)
    (set! (parent %o838) %o843)
    (set! (parent %o839) %o840)
    (set! (parent %o840) %o843)
    (set! (parent %o841) %o842)
    (set! (parent %o842) %o843)
    (set! (parent %o843) %o845)
    (set! (parent %o844) %o845)
    (set! (parent %o845) %o857)
    (set! (parent %o846) %o847)
    (set! (parent %o847) %o854)
    (set! (parent %o848) %o849)
    (set! (parent %o849) %o854)
    (set! (parent %o850) %o851)
    (set! (parent %o851) %o854)
    (set! (parent %o852) %o853)
    (set! (parent %o853) %o854)
    (set! (parent %o854) %o856)
    (set! (parent %o855) %o856)
    (set! (parent %o856) %o857)
    (set! (parent %o857) %o858)
    (set! (parent %o858) %o859)
    (set! (parent %o859) %o860)
    (set! (parent %o860) %o862)
    (set! (parent %o861) %o862)
    (set! (parent %o862) %o864)
    (set! (parent %o863) %o864)
    (set! (parent %o864) %o865)
    (set! (parent %o865) %o895)
    (set! (parent %o866) %o867)
    (set! (parent %o867) %o894)
    (set! (parent %o868) %o869)
    (set! (parent %o869) %o894)
    (set! (parent %o870) %o871)
    (set! (parent %o871) %o872)
    (set! (parent %o872) %o874)
    (set! (parent %o873) %o874)
    (set! (parent %o874) %o894)
    (set! (parent %o875) %o893)
    (set! (parent %o876) %o877)
    (set! (parent %o877) %o878)
    (set! (parent %o878) %o881)
    (set! (parent %o879) %o880)
    (set! (parent %o880) %o881)
    (set! (parent %o881) %o883)
    (set! (parent %o882) %o883)
    (set! (parent %o883) %o892)
    (set! (parent %o884) %o885)
    (set! (parent %o885) %o886)
    (set! (parent %o886) %o889)
    (set! (parent %o887) %o888)
    (set! (parent %o888) %o889)
    (set! (parent %o889) %o891)
    (set! (parent %o890) %o891)
    (set! (parent %o891) %o892)
    (set! (parent %o892) %o893)
    (set! (parent %o893) %o894)
    (set! (parent %o894) %o895)
    (set! (parent %o895) %o896)
    (set! (parent %o896) %o897)
    (set! (parent %o897) %o898))
  o)