$ 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