begin
   comment 'LIBRARY' 1;
   integer
     I,
     J,
     K,
     M;
   integer procedure GPPS(I, N, V, Z);
      integer
        I,
        N,
        V,
        Z;
   begin
      for I ≔ 1 step 1 until N do
           V ≔ Z;
      GPPS ≔ 1
   end;
   for M ≔ 1 step 1 until 25 do
      begin
         I ≔ GPPS(I, M + 1, K, if I = 1 then 1 else K +
           GPPS(J, K - 1, J, if (K + 1) - (J + 1) × ((K +
           1) ÷ (J + 1)) ≠ 0 then J else K × GPPS(J, 1,
           I, I - 1)));
         OUTREAL(99, K)
      end
end