#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
# words - gather lines, present in columns

(setq
   Data (in NIL
      (make
         (until (eof)
            (link (line T)) ) ) )
   Maxlen (inc (length (maxi length Data)))
   Cols (max (/ (or (format (sys "COLUMNS")) 80) Maxlen) 1)
   Rows (/ (+ (length Data) Cols) Cols)
   Data (make (while Data (link (cut Rows 'Data)))) )

(while (find bool Data)
   (map
      '((D) (space (- Maxlen (length (prin (pop D))))))
      Data )
   (prinl) )

(bye)