program ideone;
{$MODE DELPHI}{$LONGSTRINGS ON}
uses
FGL;
var
List: TFPGList<Integer>;
Item: Integer;
begin
List := TFPGList<Integer>.Create();
try
List.Add(2);
List.Add(4);
List.Add(8);
for Item in List do
Write(Item:3);
finally
List.Free();
end;
end.
cHJvZ3JhbSBpZGVvbmU7Cgp7JE1PREUgREVMUEhJfXskTE9OR1NUUklOR1MgT059Cgp1c2VzCiAgRkdMOwp2YXIKICBMaXN0OiBURlBHTGlzdDxJbnRlZ2VyPjsKICBJdGVtOiBJbnRlZ2VyOwpiZWdpbgogIExpc3QgOj0gVEZQR0xpc3Q8SW50ZWdlcj4uQ3JlYXRlKCk7CiAgdHJ5CiAgICBMaXN0LkFkZCgyKTsKICAgIExpc3QuQWRkKDQpOwogICAgTGlzdC5BZGQoOCk7CgogICAgZm9yIEl0ZW0gaW4gTGlzdCBkbwogICAgICBXcml0ZShJdGVtOjMpOwogIGZpbmFsbHkKICAgIExpc3QuRnJlZSgpOwogIGVuZDsKZW5kLg==