: Connect  { cs \ id nn s tt }
		TIB DUP 10 cs ReadSocket DROP S>NUM -> id
	S" 0x"	TIB DUP 10 cs ReadSocket 
		DROP 2- CONCAT	(")

	DUP STYPE CR

		HEX STR@ S>NUM DECIMAL -> nn
			id nn inparser -> tt
	SocketsStartup THROW
	" 10.10.10.2" #JabberPort# fsockopen -> s
		SendStream s fputs
		SendAuth_1	s fputs
		SendAuth_2	s fputs
	" {MessPart#1}{#id}{MessPart#2}{#tt}{MessPart#3}" s fputs
		Presence	s fputs
		GotoMUC		s fputs
		s fgets DROP
	cs CloseSocket DROP
;