require require service { schema Person { string name; int age; } protected shared relation Person GuestBook; html EnterPersonDoc = Enter your name:
Enter your age:
; html GuestBookDoc =

Guestbook

<[guests]> ; html PersonDoc =

Name: <[name]> (<[age]>).

<[guests]> ; session Show() { int i; html H = GuestBookDoc; vector Person V; reader (GuestBook) V = (vector Person) GuestBook; V = sort(V; name); for (i=0; i<|V|; i++) { H = H <[guests = PersonDoc <[name = V[i].name, age = V[i].age]]; } exit H; } session Sign() { string name; int age; relation Person P, R; int i; show EnterPersonDoc receive [name = name, age = age]; writer (GuestBook) { GuestBook = Union(GuestBook,relation { tuple {name=name,age=age}}); } Show(); } }