#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  int I;
  int N;
  double A[5 /*1:5*/];
  static const _imp_string S = 'IMP CALLS ALGOL';
  void Calgol(double C, _imp_string *S, void F(void), int *N);
  int G(int *N);
  N = 3;
  Calgol(A, S, G(), N);
  for (I = 1; I <= 5; I++) {
    Print(A[I], 2, 2);
    Spaces(2);
    Newline();
  }
  exit(0);
  return (1);
}