Насколько безумен был Алгол-60

[spamsink]

Программа

   1.   _BEGIN
   2.  _PROCEDURE POP(Q); _PROCEDURE Q;
   3.  _BEGIN Q(3); _END;
   4.
   5.  _PROCEDURE PIP(A); _LABEL A;
   6.  _BEGIN _GOTO A; _END;
   7.
   8.  _PROCEDURE PAP(B); _INTEGER B;
   9.  _BEGIN OUTPUT(‘T’, ‘INTEGER ’, ‘ZD’, B) _END;
  10.
  11.  POP(PAP);
  12.  _IF _FALSE _THEN 3: OUTPUT(‘T’, ‘ LABEL 3’) _ELSE POP(PIP);
  13.  _END

компилируется и работает, печатая

          INTEGER 3 LABEL 3