Function With-Each-File-Line

( with-each-file-line (var file) &body < body > )