$ whois algol

Algol

first released in 1958 · by John Backus, Friedrich L. Bauer, Hermann Bottenbruch, Charles Katz, Alan Perlis, Heinz Rutishauser, Klaus Samelson, Joseph Henry Wegstein, Peter Naur

$ guessprog --inspect algol

year: 1958
paradigm: procedural
family: algol
memory: manual
binding: static
safety: strong

ALGOL(7)

AUTHORS: John Backus, Friedrich L. Bauer, Hermann Bottenbruch, Charles Katz, Alan Perlis, Heinz Rutishauser, Klaus Samelson, Joseph Henry Wegstein, Peter Naur
HISTORY: ALGOL, short for "Algorithmic Language", was designed by a joint committee of American (ACM) and European (GAMM) computer scientists who met in Zurich in 1958 to create a universal, machine-independent language. Its successor ALGOL 60 was described in a report edited by Peter Naur that introduced Backus-Naur Form for defining syntax, and it brought block structure, nested scopes and recursion into the mainstream. Tony Hoare famously called it "a language so far ahead of its time that it was not only an improvement on its predecessors but also on nearly all its successors."
USAGE: Historic. It is no longer used to write software, but it was the standard way to publish algorithms in journals for decades, and its ideas live on in Pascal, C, Ada and almost every imperative language since.
SEE ALSO: Algol on Wikipedia ↗

$ cat jensen.alg

begin
  comment Jensen's device: term is re-evaluated for each i;
  real procedure sum(i, lo, hi, term);
    value lo, hi; integer i, lo, hi; real term;
  begin real s; s := 0;
    for i := lo step 1 until hi do s := s + term;
    sum := s
  end;
  integer k;
  outreal(1, sum(k, 1, 100, 1 / (k × k)))
end