(* FLAG --extended-pascal *)

Program Jesper3 (Output);

Var
  Inline: String ( 2 ) value 'OK';

Procedure WriteIt;

begin (* WriteIt *)
  writeln ( Inline );
end (* WriteIt *);

begin
  WriteIt;
end.
