service {
html EnterDepth =
Please select the depth of the genealogical tree (0-9):
;
html GenealogyDoc =
Genealogical Tree
For <[depth]> generation(s):
You
<[your_tree]>
;
html GenerationDoc =
- <[mother]>
<[mothers_tree]>
- <[father]>
<[fathers_tree]>
;
html genTree(int depth, string s) {
if (depth<=0) return ;
else return GenerationDoc <[mother = s+"mother",
mothers_tree = genTree(depth-1,s+"mother's "),
father = s+"father",
fathers_tree = genTree(depth-1,s+"father's ")];
}
session GenTree() {
int depth;
show EnterDepth receive [depth = depth];
if (depth>9) exit depth must be between 0 and 9;
exit GenealogyDoc <[depth = depth, your_tree = genTree(depth,"your ")];
}
}