Delphi/Pascal: 507