  Timer example
;; from 
;; translated into Scheme

(import (scheme base)
        (scheme process-context)
        (rebottled pstk))

(let ((tk (tk-start)))
  (tk/pack (tk 'create-widget
               'button 'text: "Start timing"
               'command: (lambda () (exit)))
           'side: "left")
  (tk-event-loop tk))


 from 
 translated into Scheme
  Timer example

(import (scheme base)
        (scheme process-context)
        (rebottled pstk))

(let ((tk (tk-start)))
  (tk/pack (tk 'create-widget
               'button 'text: "Start timing"
               'command: (lambda () (exit)))
           'side: "left")
  (tk-event-loop tk))

