pkg load sockets

s = socket ();
bind (s, 1337);
listen (s, 5);

while (true)
	client = accept (s);
	expected_input_parameters = 2;
	try
		[buffer, len] = recv (client, expected_input_parameters * 8);
		buffer = flipud (reshape (buffer, 8, expected_input_parameters));
		buffer = bitpack (bitunpack (buffer), 'double');

		a = buffer(1);
		b = buffer(2);
		
		result = hypot (a, b);
		
		buffer = bitunpack (vec (result)');
		buffer = bitpack (buffer, 'uint8');
		buffer = flipud (reshape (buffer, 8, numel (result)));
		send (client, buffer);
	catch
		disp (lasterror.message)
	end_try_catch
	disconnect (client);
endwhile