Attention des changements sont bientôt à prévoir sur l'instance gitea d'Aurore :
package Spark1 is
Mailbox : Integer with Atomic, Async_Writers, Async_Readers;
task Worker
with Global => (Input => Mailbox);
end;