PackageLoader fileInPackage: 'TCP'!
FileStream fileIn: 'SimpleChat.st'!
FileStream fileIn: 'SimpleTCP.st'!

| chatServer chatHandler serverSocket |
serverSocket := (TCP.ServerSocket port: 8000).
chatHandler := SimpleChat.Handler new.
chatServer := SimpleTCP.Server new: serverSocket handler: chatHandler.
chatServer run!