(use suspension extras ports)


(let ((args (command-line-arguments)))
  (cond ((member "store" args)
	 (with-limited-continuation
	  (lambda ()
	    (let ((r (continuation-suspend
		      (lambda (k)
                        (print "saving ...")
			(with-output-to-file "k.data" (cut display k))))))
	      (print "reenter: " r)
	      (exit)))))
	((member "load" args)
	 (print "loading ...")
	 (continuation-resume
	  (with-input-from-file "k.data" read-string)
	  123))
	(else (print "load or store?"))))