RosettaCodeData/Task/Hostname/Seed7/hostname.seed7

$ include "seed7_05.s7i";
  include "socket.s7i";

const proc: main is func
  begin
    writeln(getHostname);
  end func;