#lang syndicate
;; File System Demo protocol
(provide (struct-out file)
(struct-out save)
(struct-out delete))
(struct file (name content) #:prefab)
(struct save (file) #:prefab)
(struct delete (name) #:prefab)