[Tcl] user.
<<categories>> Person
if {$contact == "required"} {
    set email "[join $firstName $lastName {.}]@[join qldcom com au {.}]"
} else {
    return "Have a nice day ;-)"
}