{ %opt=-Sew -vw }

{$mode objfpc}

procedure test(out l: array of char);
begin
  writeln(length(l));
end;

begin
end.