service { schema Person { bool is_male; int age; string name; } shared tuple Person person; html RegistrationDoc =

Please Register


Name:
Age:
Male: / Female:

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