$ include "seed7_05.s7i";

const array string: anArray is [] ("apple", "orange");

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