;; the number of the last assignment
(define LAST-ASSIGNMENT 1)

#| File names are numeric, between 0 and LAST-ASSIGNMENT.

   Each file has the format: 

   <!-- title -->
   lines 

|#


;; file-copy : input-port -> void
;; effect: copy the port to plain output
(define (file-copy iport)
  (let ((achar (read-char iport)))
    (unless (eof-object? achar)
      (display achar)
      ; (newline)
      (file-copy iport))))

;; delete-and-open : str -> output-port
;; effect: delete file fname, if exists, and then open it
(define (delete-and-open ofile)
  (when (file-exists? ofile)
    (delete-file ofile))
  (open-output-file ofile))
  
;; Matching the title in a spec file
(define TITLE "<!-- ([^-]*) -->")

(define example "<!-- Finger Exercises -->")