((loopalpha object "!" (aml2txt lastname) "!" (aml2txt firstname) "!" (cond email email)(condnot email " ") "!" (cond login login )(condnot login " ") "!" (cond title title )(condnot title " ") "!" (cond room room )(condnot room " ") "!" (cond phone phone )(condnot phone " ") "!" (cond lab lab )(condnot lab " ") "!" (cond webpage webpage )(condnot webpage " ") "!" (cond group group )(condnot group " ") "!" (cond external external )(condnot external " ") "!" (cond quit quit )(condnot quit " ") "!" (cond retired retired )(condnot retired " ") (tp) ))