/local/apps/sgipvm3/lib/pvmgetarch: Command not found.
ruby 1 %pwd
pwd

/tmp_mnt/nfs/research/paraducks3/sameer/courses/cis671/p3/back
ruby 2 % scm load.sch
scm load.sch

> (update fam-rules fam-list)
(update fam-rules fam-list)
Rule adds a new fact : Rule :(spouse-spouse (if ((spouse ?w ?h)) then (spouse ?h ?w)))
New Fact :(spouse sarah andrew)
Rule adds a new fact : Rule :(spouse-spouse (if ((spouse ?w ?h)) then (spouse ?h ?w)))
New Fact :(spouse anne mark)
Rule adds a new fact : Rule :(spouse-spouse (if ((spouse ?w ?h)) then (spouse ?h ?w)))
New Fact :(spouse diana charles)
Rule adds a new fact : Rule :(spouse-spouse (if ((spouse ?w ?h)) then (spouse ?h ?w)))
New Fact :(spouse philip elizabeth)
Rule adds a new fact : Rule :(spouse-spouse (if ((spouse ?w ?h)) then (spouse ?h ?w)))
New Fact :(spouse kydd spenser)
Rule adds a new fact : Rule :(spouse-spouse (if ((spouse ?w ?h)) then (spouse ?h ?w)))
New Fact :(spouse mum george)
Rule adds a new fact : Rule :(male-brother (if ((brother ?x ?b)) then (male ?b)))
New Fact :(male andrew)
Rule adds a new fact : Rule :(female-spouse (if ((spouse ?w ?h) (male ?h)) then (female ?w)))
New Fact :(female sarah)
Rule adds a new fact : Rule :(sibling-brother (if ((brother ?x ?b)) then (sibling ?x ?b)))
New Fact :(sibling edward andrew)
Rule adds a new fact : Rule :(female-sister (if ((sister ?x ?s)) then (female ?s)))
New Fact :(female margaret)
Rule adds a new fact : Rule :(sibling-sister (if ((sister ?x ?s)) then (sibling ?x ?s)))
New Fact :(sibling elizabeth margaret)
Rule adds a new fact : Rule :(female-daughter (if ((daughter ?x ?d)) then (female ?d)))
New Fact :(female eugenie)
Rule adds a new fact : Rule :(female-daughter (if ((daughter ?x ?d)) then (female ?d)))
New Fact :(female beatrice)
Rule adds a new fact : Rule :(female-daughter (if ((daughter ?x ?d)) then (female ?d)))
New Fact :(female zara)
Rule adds a new fact : Rule :(female-daughter (if ((daughter ?x ?d)) then (female ?d)))
New Fact :(female anne)
Rule adds a new fact : Rule :(male-spouse (if ((spouse ?w ?h) (female ?w)) then (male ?h)))
New Fact :(male mark)
Rule adds a new fact : Rule :(female-daughter (if ((daughter ?x ?d)) then (female ?d)))
New Fact :(female diana)
Rule adds a new fact : Rule :(male-spouse (if ((spouse ?w ?h) (female ?w)) then (male ?h)))
New Fact :(male charles)
Rule adds a new fact : Rule :(female-daughter (if ((daughter ?x ?d)) then (female ?d)))
New Fact :(female elizabeth)
Rule adds a new fact : Rule :(male-spouse (if ((spouse ?w ?h) (female ?w)) then (male ?h)))
New Fact :(male philip)
Rule adds a new fact : Rule :(child-daughter (if ((daughter ?p ?d)) then (child ?p ?d)))
New Fact :(child sarah eugenie)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent eugenie sarah)
Rule adds a new fact : Rule :(child-daughter (if ((daughter ?p ?d)) then (child ?p ?d)))
New Fact :(child sarah beatrice)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent beatrice sarah)
Rule adds a new fact : Rule :(sister (if ((child ?p ?x) (child ?p ?y) (female ?x) (! (not (eq? ?x ?y)))) then (sister ?y ?x)))
New Fact :(sister beatrice eugenie)
Rule adds a new fact : Rule :(sister (if ((child ?p ?x) (child ?p ?y) (female ?x) (! (not (eq? ?x ?y)))) then (sister ?y ?x)))
New Fact :(sister eugenie beatrice)
Rule adds a new fact : Rule :(sibling-sister (if ((sister ?x ?s)) then (sibling ?x ?s)))
New Fact :(sibling beatrice eugenie)
Rule adds a new fact : Rule :(sibling-sister (if ((sister ?x ?s)) then (sibling ?x ?s)))
New Fact :(sibling eugenie beatrice)
Rule adds a new fact : Rule :(child-daughter (if ((daughter ?p ?d)) then (child ?p ?d)))
New Fact :(child mark zara)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent zara mark)
Rule adds a new fact : Rule :(child-daughter (if ((daughter ?p ?d)) then (child ?p ?d)))
New Fact :(child elizabeth anne)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent anne elizabeth)
Rule adds a new fact : Rule :(child-daughter (if ((daughter ?p ?d)) then (child ?p ?d)))
New Fact :(child kydd diana)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent diana kydd)
Rule adds a new fact : Rule :(child-daughter (if ((daughter ?p ?d)) then (child ?p ?d)))
New Fact :(child george elizabeth)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent elizabeth george)
Rule adds a new fact : Rule :(grandchild (if ((child ?g ?p) (child ?p ?c)) then (grandchild ?g ?c)))
New Fact :(grandchild george anne)
Rule adds a new fact : Rule :(child-son (if ((son ?p ?s)) then (child ?p ?s)))
New Fact :(child anne peter)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent peter anne)
Rule adds a new fact : Rule :(grandchild (if ((child ?g ?p) (child ?p ?c)) then (grandchild ?g ?c)))
New Fact :(grandchild elizabeth peter)
Rule adds a new fact : Rule :(great-grandparent (if ((child ?gg ?g) (child ?g ?p) (child ?p ?c)) then (great-grandparent ?c ?gg)))
New Fact :(great-grandparent peter george)
Rule adds a new fact : Rule :(child-son (if ((son ?p ?s)) then (child ?p ?s)))
New Fact :(child charles harry)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent harry charles)
Rule adds a new fact : Rule :(child-son (if ((son ?p ?s)) then (child ?p ?s)))
New Fact :(child diana william)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent william diana)
Rule adds a new fact : Rule :(grandchild (if ((child ?g ?p) (child ?p ?c)) then (grandchild ?g ?c)))
New Fact :(grandchild kydd william)
Rule adds a new fact : Rule :(child-son (if ((son ?p ?s)) then (child ?p ?s)))
New Fact :(child philip andrew)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent andrew philip)
Rule adds a new fact : Rule :(child-son (if ((son ?p ?s)) then (child ?p ?s)))
New Fact :(child philip charles)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent charles philip)
Rule adds a new fact : Rule :(grandchild (if ((child ?g ?p) (child ?p ?c)) then (grandchild ?g ?c)))
New Fact :(grandchild philip harry)
Rule adds a new fact : Rule :(brother (if ((child ?p ?x) (child ?p ?y) (male ?x) (! (not (eq? ?x ?y)))) then (brother ?y ?x)))
New Fact :(brother charles andrew)
Rule adds a new fact : Rule :(brother (if ((child ?p ?x) (child ?p ?y) (male ?x) (! (not (eq? ?x ?y)))) then (brother ?y ?x)))
New Fact :(brother andrew charles)
Rule adds a new fact : Rule :(sibling-brother (if ((brother ?x ?b)) then (sibling ?x ?b)))
New Fact :(sibling charles andrew)
Rule adds a new fact : Rule :(sibling-brother (if ((brother ?x ?b)) then (sibling ?x ?b)))
New Fact :(sibling andrew charles)
Rule adds a new fact : Rule :(male-son (if ((son ?x ?s)) then (male ?s)))
New Fact :(male peter)
Rule adds a new fact : Rule :(male-son (if ((son ?x ?s)) then (male ?s)))
New Fact :(male harry)
Rule adds a new fact : Rule :(male-son (if ((son ?x ?s)) then (male ?s)))
New Fact :(male william)
Rule adds a new fact : Rule :(child-sibling (if ((sibling ?x ?y) (child ?p ?x)) then (child ?p ?y)))
New Fact :(child george margaret)
Rule adds a new fact : Rule :(parent (if ((child ?p ?c)) then (parent ?c ?p)))
New Fact :(parent margaret george)
Rule adds a new fact : Rule :(sister (if ((child ?p ?x) (child ?p ?y) (female ?x) (! (not (eq? ?x ?y)))) then (sister ?y ?x)))
New Fact :(sister margaret elizabeth)
Rule adds a new fact : Rule :(sibling-sister (if ((sister ?x ?s)) then (sibling ?x ?s)))
New Fact :(sibling margaret elizabeth)
Rule adds a new fact : Rule :(daughter (if ((female ?x) (child ?p ?x)) then (daughter ?p ?x)))
New Fact :(daughter george margaret)
Rule adds a new fact : Rule :(aunt (if ((child ?p ?c) (sibling ?a ?p) (female ?a)) then (aunt ?c ?a)))
New Fact :(aunt anne margaret)
Rule adds a new fact : Rule :(uncle (if ((child ?p ?c) (sibling ?u ?p) (male ?u)) then (uncle ?c ?u)))
New Fact :(uncle harry andrew)
Rule adds a new fact : Rule :(brother-in-law (if ((brother ?x ?y) (spouse ?y ?w) (female ?w)) then (brother-in-law ?w ?x)))
New Fact :(brother-in-law sarah edward)
Rule adds a new fact : Rule :(brother-in-law (if ((brother ?x ?y) (spouse ?y ?w) (female ?w)) then (brother-in-law ?w ?x)))
New Fact :(brother-in-law sarah charles)
Rule adds a new fact : Rule :(brother-in-law (if ((brother ?x ?y) (spouse ?y ?w) (female ?w)) then (brother-in-law ?w ?x)))
New Fact :(brother-in-law diana andrew)
Rule adds a new fact : Rule :(male-brother-in-law (if ((brother-in-law ?w ?b)) then (male ?b)))
New Fact :(male edward)
(((daughter george margaret) (daughter george elizabeth) (daughter kydd diana) (daughter elizabeth anne) (daughter mark zara) (daughter sarah beatrice) (daughter sarah eugenie)) ((son philip charles) (son philip andrew) (son diana william) (son charles harry) (son anne peter)) ((brother andrew charles) (brother charles andrew) (brother edward andrew)) ((spouse mum george) (spouse kydd spenser) (spouse philip elizabeth) (spouse diana charles) (spouse anne mark) (spouse sarah andrew) (spouse george mum) (spouse spenser kydd) (spouse elizabeth philip) (spouse charles diana) (spouse mark anne) (spouse andrew sarah)) ((sister margaret elizabeth) (sister eugenie beatrice) (sister beatrice eugenie) (sister elizabeth margaret)) ((male edward) (male william) (male harry) (male peter) (male philip) (male charles) (male mark) (male andrew)) ((female elizabeth) (female diana) (female anne) (female zara) (female beatrice) (female eugenie) (female margaret) (female sarah)) ((sibling margaret elizabeth) (sibling andrew charles) (sibling charles andrew) (sibling eugenie beatrice) (sibling beatrice eugenie) (sibling elizabeth margaret) (sibling edward andrew)) ((child george margaret) (child philip charles) (child philip andrew) (child diana william) (child charles harry) (child anne peter) (child george elizabeth) (child kydd diana) (child elizabeth anne) (child mark zara) (child sarah beatrice) (child sarah eugenie)) ((parent margaret george) (parent charles philip) (parent andrew philip) (parent william diana) (parent harry charles) (parent peter anne) (parent elizabeth george) (parent diana kydd) (parent anne elizabeth) (parent zara mark) (parent beatrice sarah) (parent eugenie sarah)) ((grandchild philip harry) (grandchild kydd william) (grandchild elizabeth peter) (grandchild george anne)) ((great-grandparent peter george)) ((aunt anne margaret)) ((uncle harry andrew)) ((brother-in-law diana andrew) (brother-in-law sarah charles) (brother-in-law sarah edward)))
> (define *verbose* (not '#t))
(define *verbose* (not ' t))
#<unspecified>
> *verbose*
*verbose*
#f
> (time (update fam-rules fam-list))
(time (update fam-rules fam-list))

ERROR: unbound variable:  time
; in expression: (... time (update fam-rules fam-list))
; in top level environment.
> time
time

ERROR: unbound variable:  time
; in expression: time
; in top level environment.
> (time (define x 14))
(time (define x 14))

ERROR: unbound variable:  time
; in expression: (... time (define x 14))
; in top level environment.
> ruby 3 % scm
scm

SCM version 4a13, Copyright (C) 1990, 1991, 1992 Aubrey Jaffer.
SCM comes with ABSOLUTELY NO WARRANTY; for details type `(terms)'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `(terms)' for details.
> (load "load.sch")
(load "load.sch")
;loading "load.sch"
;loading "match.sch"
;done loading "match.sch"
;loading "nl.sch"
;done loading "nl.sch"
;loading "env.sch"
;done loading "env.sch"
;loading "satisfy_test.sch"
;done loading "satisfy_test.sch"
;loading "update.sch"
;done loading "update.sch"
;loading "rule.sch"
;done loading "rule.sch"
;loading "kin.sch"
;done loading "kin.sch"
;loading "fam_data.sch"
;done loading "fam_data.sch"
;done loading "load.sch"
;Evaluation took 60 mSec (0 in gc) 3144 cons work
#<unspecified>
> (define *verbose* (not '#t))
(define *verbose* (not ' t))
;Evaluation took 0 mSec (0 in gc) 0 cons work
#<unspecified>
> *verbose*
*verbose*
;Evaluation took 0 mSec (0 in gc) 1 cons work
#f
> (update fam-rules fam-list)
(update fam-rules fam-list)
;Evaluation took 1281010 mSec (233440 in gc) 315815166 cons work
(((daughter mum margaret) (daughter george margaret) (daughter mum elizabeth) (daughter spenser diana) (daughter philip anne) (daughter anne zara) (daughter andrew beatrice) (daughter andrew eugenie) (daughter george elizabeth) (daughter kydd diana) (daughter elizabeth anne) (daughter mark zara) (daughter sarah beatrice) (daughter sarah eugenie)) ((son philip anne) (son elizabeth anne) (son elizabeth edward) (son philip edward) (son charles william) (son diana harry) (son mark peter) (son elizabeth charles) (son elizabeth andrew) (son philip charles) (son philip andrew) (son diana william) (son charles harry) (son anne peter)) ((brother edward anne) (brother charles anne) (brother andrew anne) (brother charles edward) (brother andrew edward) (brother anne edward) (brother edward charles) (brother harry william) (brother william harry) (brother zara peter) (brother andrew charles) (brother anne charles) (brother charles andrew) (brother anne andrew) (brother edward andrew)) ((spouse mum george) (spouse kydd spenser) (spouse philip elizabeth) (spouse diana charles) (spouse anne mark) (spouse sarah andrew) (spouse george mum) (spouse spenser kydd) (spouse elizabeth philip) (spouse charles diana) (spouse mark anne) (spouse andrew sarah)) ((sister edward anne) (sister margaret elizabeth) (sister charles anne) (sister andrew anne) (sister peter zara) (sister eugenie beatrice) (sister beatrice eugenie) (sister elizabeth margaret)) ((male anne) (male edward) (male william) (male harry) (male peter) (male philip) (male charles) (male mark) (male andrew)) ((female mark) (female elizabeth) (female diana) (female anne) (female zara) (female beatrice) (female eugenie) (female margaret) (female sarah)) ((sibling charles edward) (sibling anne edward) (sibling edward anne) (sibling edward charles) (sibling margaret elizabeth) (sibling andrew edward) (sibling harry william) (sibling william harry) (sibling zara peter) (sibling charles anne) (sibling andrew charles) (sibling anne charles) (sibling charles andrew) (sibling andrew anne) (sibling anne andrew) (sibling peter zara) (sibling eugenie beatrice) (sibling beatrice eugenie) (sibling elizabeth margaret) (sibling edward andrew)) ((child elizabeth edward) (child philip edward) (child mum margaret) (child george margaret) (child elizabeth charles) (child philip charles) (child elizabeth andrew) (child philip andrew) (child charles william) (child diana william) (child diana harry) (child charles harry) (child mark peter) (child anne peter) (child mum elizabeth) (child george elizabeth) (child spenser diana) (child kydd diana) (child philip anne) (child elizabeth anne) (child anne zara) (child mark zara) (child andrew beatrice) (child sarah beatrice) (child andrew eugenie) (child sarah eugenie)) ((parent edward elizabeth) (parent edward philip) (parent margaret mum) (parent margaret george) (parent charles elizabeth) (parent charles philip) (parent andrew elizabeth) (parent andrew philip) (parent william charles) (parent william diana) (parent harry diana) (parent harry charles) (parent peter mark) (parent peter anne) (parent elizabeth mum) (parent elizabeth george) (parent diana spenser) (parent diana kydd) (parent anne philip) (parent anne elizabeth) (parent zara anne) (parent zara mark) (parent beatrice andrew) (parent beatrice sarah) (parent eugenie andrew) (parent eugenie sarah)) ((grandchild mum edward) (grandchild george edward) (grandchild elizabeth william) (grandchild elizabeth harry) (grandchild mum charles) (grandchild george charles) (grandchild philip william) (grandchild philip harry) (grandchild elizabeth beatrice) (grandchild elizabeth eugenie) (grandchild mum andrew) (grandchild george andrew) (grandchild philip beatrice) (grandchild philip eugenie) (grandchild spenser william) (grandchild kydd william) (grandchild spenser harry) (grandchild kydd harry) (grandchild philip peter) (grandchild elizabeth peter) (grandchild mum anne) (grandchild george anne) (grandchild philip zara) (grandchild elizabeth zara)) ((great-grandparent william mum) (great-grandparent harry mum) (great-grandparent william george) (great-grandparent harry george) (great-grandparent beatrice mum) (great-grandparent eugenie mum) (great-grandparent beatrice george) (great-grandparent eugenie george) (great-grandparent peter mum) (great-grandparent peter george) (great-grandparent zara mum) (great-grandparent zara george)) ((aunt edward margaret) (aunt charles margaret) (aunt andrew margaret) (aunt william anne) (aunt harry anne) (aunt anne margaret) (aunt beatrice anne) (aunt eugenie anne)) ((uncle william anne) (uncle harry anne) (uncle beatrice anne) (uncle eugenie anne) (uncle william edward) (uncle harry edward) (uncle peter edward) (uncle zara edward) (uncle beatrice edward) (uncle eugenie edward) (uncle william andrew) (uncle harry andrew) (uncle peter charles) (uncle peter andrew) (uncle zara charles) (uncle zara andrew) (uncle beatrice charles) (uncle eugenie charles)) ((brother-in-law mark edward) (brother-in-law mark charles) (brother-in-law mark andrew) (brother-in-law diana edward) (brother-in-law diana andrew) (brother-in-law diana anne) (brother-in-law sarah charles) (brother-in-law sarah anne) (brother-in-law sarah edward)) ((sister-in-law diana anne) (sister-in-law sarah anne)) ((first-cousin william harry) (first-cousin harry william) (first-cousin beatrice eugenie) (first-cousin eugenie beatrice) (first-cousin peter zara) (first-cousin zara peter) (first-cousin edward charles) (first-cousin edward andrew) (first-cousin edward anne) (first-cousin charles edward) (first-cousin charles andrew) (first-cousin charles anne) (first-cousin andrew edward) (first-cousin andrew charles) (first-cousin andrew anne) (first-cousin anne edward) (first-cousin anne charles) (first-cousin anne andrew)))
> rule-list
rule-list

ERROR: unbound variable:  rule-list
; in expression: rule-list
; in top level environment.
> fam-rules
fam-rules
;Evaluation took 0 mSec (0 in gc) 1 cons work
((parent (if ((child ?p ?c)) then (parent ?c ?p))) (child (if ((parent ?c ?p)) then (child ?p ?c))) (grandchild (if ((child ?g ?p) (child ?p ?c)) then (grandchild ?g ?c))) (spouse (if ((child ?f ?x) (child ?m ?x) (! (not (eq? ?f ?m)))) then (spouse ?f ?m))) (male-spouse (if ((spouse ?w ?h) (female ?w)) then (male ?h))) (female-spouse (if ((spouse ?w ?h) (male ?h)) then (female ?w))) (spouse-spouse (if ((spouse ?w ?h)) then (spouse ?h ?w))) (child-spouse (if ((spouse ?x ?y) (child ?x ?c)) then (child ?y ?c))) (great-grandparent (if ((child ?gg ?g) (child ?g ?p) (child ?p ?c)) then (great-grandparent ?c ?gg))) (brother (if ((child ?p ?x) (child ?p ?y) (male ?x) (! (not (eq? ?x ?y)))) then (brother ?y ?x))) (male-brother (if ((brother ?x ?b)) then (male ?b))) (sibling-brother (if ((brother ?x ?b)) then (sibling ?x ?b))) (sister (if ((child ?p ?x) (child ?p ?y) (female ?x) (! (not (eq? ?x ?y)))) then (sister ?y ?x))) (female-sister (if ((sister ?x ?s)) then (female ?s))) (sibling-sister (if ((sister ?x ?s)) then (sibling ?x ?s))) (daughter (if ((female ?x) (child ?p ?x)) then (daughter ?p ?x))) (female-daughter (if ((daughter ?x ?d)) then (female ?d))) (child-daughter (if ((daughter ?p ?d)) then (child ?p ?d))) (son (if ((male ?x) (child ?p ?x)) then (son ?p ?x))) (child-son (if ((son ?p ?s)) then (child ?p ?s))) (male-son (if ((son ?x ?s)) then (male ?s))) (sibling (if ((child ?p ?x) (child ?p ?y) (! (not (eq? ?x ?y)))) then (sibling ?x ?y))) (sibling-sibling (if ((sibling ?x ?y)) then (sibling ?y ?x))) (child-sibling (if ((sibling ?x ?y) (child ?p ?x)) then (child ?p ?y))) (aunt (if ((child ?p ?c) (sibling ?a ?p) (female ?a)) then (aunt ?c ?a))) (female-aunt (if ((aunt ?c ?a)) then (female ?a))) (uncle (if ((child ?p ?c) (sibling ?u ?p) (male ?u)) then (uncle ?c ?u))) (male-uncle (if ((uncle ?c ?u)) then (male ?u))) (brother-in-law (if ((brother ?x ?y) (spouse ?y ?w) (female ?w)) then (brother-in-law ?w ?x))) (male-brother-in-law (if ((brother-in-law ?w ?b)) then (male ?b))) (sister-in-law (if ((sister ?y ?x) (spouse ?w ?y) (female ?w)) then (sister-in-law ?w ?x))) (female-sister-in-law (if ((sister-in-law ?x ?s)) then (female ?s))) (first-cousin (if ((sibling ?x ?y) (parent ?fc1 ?x) (parent ?fc2 ?x) (! (not (eq? ?x ?y))) (! (not (eq? ?fc1 ?fc2)))) then (first-cousin ?fc1 ?fc2))) (first-cousin-first-cousin (if ((first-cousin ?x ?y)) then (first-cousin ?y ?x))))
> fam-list
fam-list
;Evaluation took 0 mSec (0 in gc) 1 cons work
(((daughter george elizabeth) (daughter kydd diana) (daughter elizabeth anne) (daughter mark zara) (daughter sarah beatrice) (daughter sarah eugenie)) ((son philip charles) (son philip andrew) (son diana william) (son charles harry) (son anne peter)) ((brother edward andrew)) ((spouse george mum) (spouse spenser kydd) (spouse elizabeth philip) (spouse charles diana) (spouse mark anne) (spouse andrew sarah)) ((sister elizabeth margaret)))
>