entry_point local void connect ()
-(* XXX Should scheme be an enum? *)
-entry_point local void set_scheme (string scheme)
+enum scheme ["local"; "ssh"] ;;
+entry_point local void set_scheme (enum scheme scheme)
entry_point local void set_hostname (string hostname)