(DE LAST (L)
,  (PROG (E)
,  ,  (SETQ E (CAR L))
,  ,  (REPEAT
,  ,  ,  WHILE (CDR L)
,  ,  ,  (SETQ L (CDR L))
,  ,  ,  (SETQ E (CAR L))
,  ,  ,,,)
,  ,  (RETURN (LIST E))
,  ,,,)
,,,)