Узнать размеры PNG-файла

Функция на newLISP.

; Возвращает размеры png-файла (ширину и высоту)
(define (get-png-size file-name)
  (map eval-string (map (curry append "0x")
    (select (regex {49484452....(....)....(....)}
  (join (map (curry format "%02X")
    (unpack (dup "b" 100) (read-file file-name))))) 3 6))))