(use posix)                                                                   
(print                                                                       
  (call/cc                                                                  
    (lambda (k)                                            
      (set-signal-handler! signal/int                                       
        (lambda _ (k "INTR")))                                                
    (stfl:run! ...))))