# -*- mode: snippet -*-
# name: readfile
# key: readfile
# condition: t
# --
(with-open-file (in "$1")
  (do ((line (read-line in nil)
             (read-line in nil)))
      ((null line))
    $2))