$ cat blinker.txt reader.scm                                                                                                                                 
....                                                                                                                                                         
***.                                                                                                                                                         
....                                                                                                                                                         
#!/usr/local/bin/csi -script                                                                                                                                 
                                                                                                                                                             
(import (test))                                                                                                                                              
(import (chicken io))                                                                                                                                        
(import (chicken pretty-print))                                                                                                                              
                                                                                                                                                             
(define a (read-lines))                                                                                                                                      
(define b (list->vector a))                                                                                                                                  
                                                                                                                                                             
(test b (vector(vector "." "." "." ".")                                                                                                                      
               (vector "*" "*" "*" ".")                                                                                                                      
               (vector "." "." "." ".")))                                                                                                                    
(pp b)                                                                                                                                                       
                                                                                                    
$ cat blinker.txt | rlwrap csi reader.scm                                                         

(define a (read-lines))
(pp a)
(define b (map string->list a))
(pp b)
(define c (map list->vector b))
(pp c)
(define d (map list->vector c))
(pp d)

OUTPUT

("...." "***." "....")                                                                                                                                       
((#\. #\. #\. #\.) (#\* #\* #\* #\.) (#\. #\. #\. #\.))                                                                                                      
(#(#\. #\. #\. #\.) #(#\* #\* #\* #\.) #(#\. #\. #\. #\.))                                                                                                   
                                                                                                                                                             
Error: (list->vector) bad argument type - not a proper list: #(#\. #\. #\. #\.)