((loop-alpha
("" curlet " |
")
("\&\#160; |
")
(condnot external
(talk object (tp))
"" (aml2html firstname) " " (aml2html lastname) "
" (tp)
(cond lab "Lab: " lab "
" (tp))
(cond group "Group:" group "
" (tp))
"Login: " login "
"
(cond email "Email: " email (tp) "
" (tp))
(cond webpage "" webpage "" "
" (tp))
(condnot webpage "Webpage not known to database.
" (tp))
(tp) )))