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 ")];
}
}