(define (text-path info)     (string-append "Texts/texts/"
  (symbol->string (text-name info))
  ".txt")

(begin
  (set! *cur-text-number* (text-number info))
  (set! *cur-text*        (include (text-path info)))
  (prnln "current text was set to " (text-name info))))))