#lang scheme
(require
 (planet murphy/9p:1:0/client))

(define filesystem
  (new client-filesystem% [hostname "localhost"] [port-no 1234]))

(define root
  (send filesystem attach))

(define remote-value
  (case-lambda
    [()
     (call-with-9p-input-file*
      root "value" read)]
    [(value)
     (call-with-9p-output-file*
      root "value" #:exists 'truncate (curry write value))]))

(printf ";; Remote value is ~s~%" (remote-value))

(provide
 (all-defined-out))