(DE PSL () (PAL (SYMLIST)))	% print ob-list

(DE PAL (AL)			% print atom-list
,  (PROG (L S SL LL)
,  ,  (SETQ L AL)
,  ,  (SETQ LL 0)
,  ,  (TERPRI)
,  ,  (REPEAT
,  ,  ,  WHILE L
,  ,  ,  (SETQ S (CAR L))
,  ,  ,  (SETQ L (CDR L))
,  ,  ,  (SETQ SL (ATOMLENGTH S))
,  ,  ,  (SETQ LL (PLUS LL SL 1))
,  ,  ,  (COND
,  ,  ,  ,  ((GREATERP LL (LINELENGTH))
,  ,  ,  ,  ,  (TERPRI)
,  ,  ,  ,  ,  (SETQ LL (PLUS SL 1))
,  ,  ,  ,  ,,,)
,  ,  ,  ,,,)
,  ,  ,  (PRIN1 S)
,  ,  ,  (PRIN2 " ")
,  ,  ,  (SETQ SL (DIFFERENCE
,  ,  ,  ,  7
,  ,  ,  ,  (REMAINDER SL 8)
,  ,  ,  ,,,))
,  ,  ,  (SETQ LL (PLUS LL SL))
,  ,  ,  (COND
,  ,  ,  ,  ((NOT (GREATERP LL (LINELENGTH)))
,  ,  ,  ,  ,  (PRIN2 (FILLSTR " " SL))
,  ,  ,  ,  ,,,)
,  ,  ,  ,  ( T
,  ,  ,  ,  ,  (TERPRI)
,  ,  ,  ,  ,  (SETQ LL 0)
,  ,  ,  ,  ,,,)
,  ,  ,  ,,,)
,  ,  ,,,)
,  ,,,)
,,,)