RosettaCodeData/Task/Longest-string-challenge/PicoLisp/longest-string-challenge-1.l

(mapc prinl
   (maxi '((L) (length (car L)))
      (by length group
         (in NIL
            (make (until (eof) (link (line)))) ) ) ) )