#include <perms.h>
static int FIRSTPOS(_imp_string *S, int K) {
  _imp_enter();
  int I;
  PRINTSTRING(S);
  PRINTSYMBOL(':');
  PRINTSYMBOL(K);
  NEWLINE();
  for (I = 1; I != LENGTH(S) + 1; I += 1) {
    if (CHARNO(S, I) == K) return (I);
  }
  return (0);
  _imp_leave();
}
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();  // option...
  _imp_string S = _imp_str_literal("12345.67");
  if (FIRSTPOS(S, '.') == 0) {
    PRINTSTRING(_imp_str_literal("Bnag"));
    NEWLINE();
  }
  _imp_leave();
  exit(0);
  return (0);
}