#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();  // reals long
  int I;
  int N;
  double A[5 - 1 + 1];
  const _imp_string S = 'IMP CALLS ALGOL';
  extern void CALGOL(double *C, _imp_string *S, int (*F)(void), int *N);
  extern int G(int *N);
  N = 3;
  CALGOL(A, S, G(), N);
  for (I = 1; I != 5 + 1; I += 1) {
    PRINT(A[I], 2, 2);
    SPACES(2);
    NEWLINE();
  }

  _imp_leave();
  exit(0);
  return (0);
}