service { schema Person { bool is_male; int age; string name; } shared tuple Person person; html RegistrationDoc =
Last registered person was <[last_name]>.
<[gender]> is <[last_age]> year<[pl]> old.
;
html ThankYouDoc =
Thank you for registering <[name]>.
;
session Register() {
tuple Person p;
string pl, gender;
html H;
p = person;
H = RegistrationDoc <[last_name=p.name, last_age=p.age];
if (p.is_male) gender = "He";
else gender = "She";
if (p.age!=1) pl = "s";
H = H <[pl = pl, gender=gender];
show H receive [p.name=name, p.age=age, p.is_male=is_male];
person = p;
exit ThankYouDoc <[name=p.name];
}
}