#! /usr/local/bin/gsi (load "tp2.scm") (display (list-ref (compress (list->string (let loop () (let ((c (read-char))) (if (eof-object? c) '() (cons c (loop))))))) 7))