((loopalpha
(aml2txt lastname) ", "
(aml2txt firstname) ", "
(cond title title )(condnot title " ") ", "
(cond lab lab )(condnot lab "-") ": "
(cond login login )(condnot login " ") ", "
(cond email email)(condnot email " ") "."
(tp)
"Rum: " (cond room room )(condnot room "-")
", Tel: " (cond phone phone )(condnot phone "-")
", Grupp: " (cond group group )(condnot group "-")
", Hemsida: " (cond webpage webpage )(condnot webpage "-")
(tp)
"Extern: " (cond external external )(condnot external "-")
", Quit: " (cond quit quit )(condnot quit "-")
", Pensionerad: " (cond retired retired )(condnot retired "-")
(tp)(tp)
))