#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(module memcache-client (memcache-connect
                         memcache-set!
                         memcache-get)
  (import scheme chicken)
  (use memcached)
  (define memcache-connect connect)
  (define memcache-set! set)
  (define memcache-get get)
  #t)

;; (use memcached)
;; (define mcc (connect "localhost" 11211))
;; (set mcc "ok" "hi")
;; (display (get mcc "ok"))
;; (newline)


(import memcache-client)
(define mcc (memcache-connect "localhost" 11211))
(memcache-set! mcc "test-key" "test-value")
(display (memcache-get mcc "test-key"))
(newline)