-- The Great Computer Language Shootout
-- http://shootout.alioth.debian.org/
--
-- contributed by Adam Sampson <ats@offog.org>

PROC main (CHAN BYTE out!)
  VAL []BYTE s IS "hello world*n":
  SEQ i = 0 FOR SIZE s
    out ! s[i]
:
