define function main(name, arguments)
  let s = "This is a test.";
  let stream = make(<sequence-stream>, contents: s);
  stream.stream-position := #"end";
  format-out("Length %d\n", stream.stream-position);
end function main;

// Invoke our main() function.
main(application-name(), application-arguments());