id := TObjectID readHexFrom: '35396f525945454344427a696f436c4c'.

dispatcher := TExampleDispatcher new.
dispatcher listenOn: 8080. "fixed port"
dispatcher autoCreate: false.

router := TSimpleRouter new.
router addUserName: 'guest' password: 'guest'.
dispatcher addRouter: router id: id.