procedure main()
  write("Hello, World!")
end

link strings

# A simple Icon program that prints "Hello, World!"

procedure main()
  # The write() function is used to print output to the screen.
  write("Hello, World!")
end

# Icon has a built-in string scanning facility.
# This program uses it to extract the first word from a string.

link strings

procedure main()
  s := "This is a test string"
  word := tab(find(s))
  write(word)
end