Original file (102 bytes): (use awful) (enable-sxml #t) (define-page (main-page-path) (lambda () "Hello there!")) Testing file-read: CHICKEN (c) 2008-2014, The Chicken Team (c) 2000-2007, Felix L. Winkelmann Version 4.9.1 (rev b00d73a) windows-mingw32-x86 [ manyargs dload ptables ] compiled 2014-04-19 on Cairo (MINGW32_NT-6.1) #;1> (use posix) ; loading c:/MinGW//lib/chicken/7/posix.import.so ... ; loading library posix ... #;2> (define fileno (port->fileno (open-input-file "lobby.css"))) #;3> (define read (file-read fileno 95)) #;4> read ("(use awful)\n\n(enable-sxml #t)\n\n(define-page (main-page-path)\n (lambda () \n \"Hello thero ther" 89) #;5> (string-length (car read)) 95