The following ALGOL program invokes the library OBJECT/SAMPLE/DYNAMICLIB described previously.

BEGIN
 LIBRARY MYLIB(TITLE= “OBJECT/SAMPLE/DYNAMICLIB.”);
 INTEGER PROCEDURE FAKTORIAL(N);
      INTEGER  N;
      LIBRARY MYLIB(ACTUALNAME= “FACT”);

 PROCEDURE DAYTIME(A, W);
      ARRAY A[*];
      INTEGER W;
      LIBRARY MYLIB;

 REAL T;
 ARRAY DATIME[0:120];

 MYLIB.LIBPARAMETER:= “WITH TIME”;
 REPLACE POINTER(DATIME[0], 8) BY
      “ 13 FACTORIAL IS “,
      FAKTORIAL(13) FOR 12 DIGITS,
      “     -     “;
 DAYTIME(DATIME[*], 40);
 DISPLAY(DATIME[0]);
 END.