# -*- 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))