(module restricted-mzscheme mzscheme
  (provide (all-from-except mzscheme
			    read-string)))