;; -*- geiser-scheme: chicken -*-

(import (r7rs))
(import (scheme base))
(import (srfi 180))
(import (chicken process))
(import http-client)

(define (firefox)
  (let-values (((stdout stdin pid stderr) (process* "geckodriver"))
               (host "127.0.0.1")
               (port "4444")
               )
    (lambda (msg #!optional args)
      (case msg
        ((test) (print "Test"))
        ((test-with-args) (print "Args:" args))))))