++- Selene                                                 ** Veronica

while (lines file) ->                                      (.* [# lines] file >
  line = '' ..                                                 ('' .line ..)
                                                               (# line-out output-file line -
  - line-out output-file line                                      (# transform string-8bit .line -
  ' line = transform string-8bit                                       (# line-in input-file .string-8bit)
  ' string-8bit = line-in input-file                               )
                                                               )
  if (line = ';.') -> leave                                    ([= ';.'] line >
  else iterate                                                     ->> 
;                                                              >
                                                                   ;
                                                               )
                                                           )
