; longest line
 
(define (read-line . port)
  (define (eat p c)
    (if (and (not (eof-object? (peek-char p)))
             (char=? (peek-char p) c))
        (read-char p)))
  (let ((p (if (null? port) (current-input-port) (car port))))
    (let loop ((c (read-char p)) (line '()))
      (cond ((eof-object? c) (if (null? line) c (list->string (reverse line))))
            ((char=? #\newline c) (eat p #\return) (list->string (reverse line)))
            ((char=? #\return c) (eat p #\newline) (list->string (reverse line)))
            (else (loop (read-char p) (cons c line)))))))
 
(define (longest-line)
  (let loop ((line (read-line)) (max-len 0) (max-line ""))
    (cond ((eof-object? line) max-line)
          ((< max-len (string-length line))
            (loop (read-line) (string-length line) line))
          (else (loop (read-line) max-len max-line)))))
 
(display (longest-line)) (newline)

OyBsb25nZXN0IGxpbmUKCihkZWZpbmUgKHJlYWQtbGluZSAuIHBvcnQpCiAgKGRlZmluZSAoZWF0IHAgYykKICAgIChpZiAoYW5kIChub3QgKGVvZi1vYmplY3Q/IChwZWVrLWNoYXIgcCkpKQogICAgICAgICAgICAgKGNoYXI9PyAocGVlay1jaGFyIHApIGMpKQogICAgICAgIChyZWFkLWNoYXIgcCkpKQogIChsZXQgKChwIChpZiAobnVsbD8gcG9ydCkgKGN1cnJlbnQtaW5wdXQtcG9ydCkgKGNhciBwb3J0KSkpKQogICAgKGxldCBsb29wICgoYyAocmVhZC1jaGFyIHApKSAobGluZSAnKCkpKQogICAgICAoY29uZCAoKGVvZi1vYmplY3Q/IGMpIChpZiAobnVsbD8gbGluZSkgYyAobGlzdC0+c3RyaW5nIChyZXZlcnNlIGxpbmUpKSkpCiAgICAgICAgICAgICgoY2hhcj0/ICNcbmV3bGluZSBjKSAoZWF0IHAgI1xyZXR1cm4pIChsaXN0LT5zdHJpbmcgKHJldmVyc2UgbGluZSkpKQogICAgICAgICAgICAoKGNoYXI9PyAjXHJldHVybiBjKSAoZWF0IHAgI1xuZXdsaW5lKSAobGlzdC0+c3RyaW5nIChyZXZlcnNlIGxpbmUpKSkKICAgICAgICAgICAgKGVsc2UgKGxvb3AgKHJlYWQtY2hhciBwKSAoY29ucyBjIGxpbmUpKSkpKSkpCgooZGVmaW5lIChsb25nZXN0LWxpbmUpCiAgKGxldCBsb29wICgobGluZSAocmVhZC1saW5lKSkgKG1heC1sZW4gMCkgKG1heC1saW5lICIiKSkKICAgIChjb25kICgoZW9mLW9iamVjdD8gbGluZSkgbWF4LWxpbmUpCiAgICAgICAgICAoKDwgbWF4LWxlbiAoc3RyaW5nLWxlbmd0aCBsaW5lKSkKICAgICAgICAgICAgKGxvb3AgKHJlYWQtbGluZSkgKHN0cmluZy1sZW5ndGggbGluZSkgbGluZSkpCiAgICAgICAgICAoZWxzZSAobG9vcCAocmVhZC1saW5lKSBtYXgtbGVuIG1heC1saW5lKSkpKSkKCihkaXNwbGF5IChsb25nZXN0LWxpbmUpKSAobmV3bGluZSk=

SHlkcm9nZW4KSGVsaXVtCkxpdGhpdW0KQmVyeWxsaXVtCkJvcm9uCkNhcmJvbgpOaXRyb2dlbgpPeHlnZW4KRmx1b3JpbmUKTmVvbgpTb2RpdW0KTWFnbmVzaXVtCkFsdW1pbnVtClNpbGljb24KUGhvc3Bob3J1cwpTdWxmdXIKQ2hsb3JpbmUKQXJnb24KUG90YXNzaXVtCkNhbGNpdW0KU2NhbmRpdW0KVGl0YW5pdW0KVmFuYWRpdW0KQ2hyb21pdW0KTWFuZ2FuZXNlCklyb24KQ29iYWx0Ck5pY2tlbApDb3BwZXIKWmluYwpHYWxsaXVtCkdlcm1hbml1bQpBcnNlbmljClNlbGVuaXVtCkJyb21pbmUKS3J5cHRvbgpSdWJpZGl1bQpTdHJvbnRpdW0KWXR0cml1bQpaaXJjb25pdW0KTmlvYml1bQpNb2x5YmRlbnVtClRlY2huZXRpdW0KUnV0aGVuaXVtClJob2RpdW0KUGFsbGFkaXVtClNpbHZlcgpDYWRtaXVtCkluZGl1bQpUaW4KQW50aW1vbnkKVGVsbHVyaXVtCklvZGluZQpYZW5vbgpDZXNpdW0KQmFyaXVtCkxhbnRoYW51bQpDZXJpdW0KUHJhc2VvZHltaXVtCk5lb2R5bWl1bQpQcm9tZXRoaXVtClNhbWFyaXVtCkV1cm9waXVtCkdhZG9saW5pdW0KVGVyYml1bQpEeXNwcm9zaXVtCkhvbG1pdW0KRXJiaXVtClRodWxpdW0KWXR0ZXJiaXVtCkx1dGV0aXVtCkhhZm5pdW0KVGFudGFsdW0KVHVuZ3N0ZW4KUmhlbml1bQpPc21pdW0KSXJpZGl1bQpQbGF0aW51bQpHb2xkCk1lcmN1cnkKVGhhbGxpdW0KTGVhZApCaXNtdXRoClBvbG9uaXVtCkFzdGF0aW5lClJhZG9uCkZyYW5jaXVtClJhZGl1bQpBY3Rpbml1bQpUaG9yaXVtClByb3RhY3Rpbml1bQpVcmFuaXVtCk5lcHR1bml1bQpQbHV0b25pdW0KQW1lcmljaXVtCkN1cml1bQpCZXJrZWxpdW0KQ2FsaWZvcm5pdW0KRWluc3RlaW5pdW0KRmVybWl1bQpNZW5kZWxldml1bQpOb2JlbGl1bQpMYXdyZW5jaXVtClJ1dGhlcmZvcmRpdW0KRHVibml1bQpTZWFib3JnaXVtCkJvaHJpdW0KSGFzc2l1bQpNZWl0bmVyaXVt

Hydrogen
Helium
Lithium
Beryllium
Boron
Carbon
Nitrogen
Oxygen
Fluorine
Neon
Sodium
Magnesium
Aluminum
Silicon
Phosphorus
Sulfur
Chlorine
Argon
Potassium
Calcium
Scandium
Titanium
Vanadium
Chromium
Manganese
Iron
Cobalt
Nickel
Copper
Zinc
Gallium
Germanium
Arsenic
Selenium
Bromine
Krypton
Rubidium
Strontium
Yttrium
Zirconium
Niobium
Molybdenum
Technetium
Ruthenium
Rhodium
Palladium
Silver
Cadmium
Indium
Tin
Antimony
Tellurium
Iodine
Xenon
Cesium
Barium
Lanthanum
Cerium
Praseodymium
Neodymium
Promethium
Samarium
Europium
Gadolinium
Terbium
Dysprosium
Holmium
Erbium
Thulium
Ytterbium
Lutetium
Hafnium
Tantalum
Tungsten
Rhenium
Osmium
Iridium
Platinum
Gold
Mercury
Thallium
Lead
Bismuth
Polonium
Astatine
Radon
Francium
Radium
Actinium
Thorium
Protactinium
Uranium
Neptunium
Plutonium
Americium
Curium
Berkelium
Californium
Einsteinium
Fermium
Mendelevium
Nobelium
Lawrencium
Rutherfordium
Dubnium
Seaborgium
Bohrium
Hassium
Meitnerium