//! @file prelude.c
//! @author J. Marcel van der Veer

//! @section Copyright
//!
//! This file is part of Algol68G - an Algol 68 compiler-interpreter.
//! Copyright 2001-2026 J. Marcel van der Veer [algol68g@xs4all.nl].

//! @section License
//!
//! This program is free software; you can redistribute it and/or modify it 
//! under the terms of the GNU General Public License as published by the 
//! Free Software Foundation; either version 3 of the License, or 
//! (at your option) any later version.
//!
//! This program is distributed in the hope that it will be useful, but 
//! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
//! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 
//! more details. You should have received a copy of the GNU General Public 
//! License along with this program. If not, see [http://www.gnu.org/licenses/].

//! @section Synopsis
//!
//! Standard prelude definitions.

#include "a68g.h"
#include "a68g-prelude.h"
#include "a68g-prelude-mathlib.h"
#include "a68g-prelude-gsl.h"
#include "a68g-transput.h"
#include "a68g-mp.h"
#include "a68g-parser.h"
#include "a68g-double.h"

#define A68G_STD A68G_TRUE
#define A68G_EXT A68G_FALSE

//! @brief Standard_environ_proc_name.

char *standard_environ_proc_name (GPROC f)
{
  for (TAG_T *i = IDENTIFIERS (A68G_STANDENV); i != NO_TAG; FORWARD (i)) {
    if (PROCEDURE (i) == f) {
      return NSYMBOL (NODE (i));
    }
  }
  return NO_TEXT;
}

//! @brief Enter tag in standenv symbol table.

void add_a68g_standenv (BOOL_T portable, int a, NODE_T * n, char *c, MOID_T * m, int p, GPROC * q)
{
#define INSERT_TAG(l, n) {\
  NEXT (n) = *(l);\
  *(l) = (n);\
  }
  TAG_T *new_one = new_tag ();
  PROCEDURE_LEVEL (INFO (n)) = 0;
  USE (new_one) = A68G_FALSE;
  HEAP (new_one) = HEAP_SYMBOL;
  TAG_TABLE (new_one) = A68G_STANDENV;
  NODE (new_one) = n;
  VALUE (new_one) = (c != NO_TEXT ? TEXT (add_token (&A68G (top_token), c)) : NO_TEXT);
  PRIO (new_one) = p;
  PROCEDURE (new_one) = q;
  A68G_STANDENV_PROC (new_one) = (BOOL_T) (q != NO_GPROC);
  UNIT (new_one) = NULL;
  PORTABLE (new_one) = portable;
  MOID (new_one) = m;
  NEXT (new_one) = NO_TAG;
  if (a == IDENTIFIER) {
    INSERT_TAG (&IDENTIFIERS (A68G_STANDENV), new_one);
  } else if (a == OP_SYMBOL) {
    INSERT_TAG (&OPERATORS (A68G_STANDENV), new_one);
  } else if (a == PRIO_SYMBOL) {
    INSERT_TAG (&PRIO (A68G_STANDENV), new_one);
  } else if (a == INDICANT) {
    INSERT_TAG (&INDICANTS (A68G_STANDENV), new_one);
  } else if (a == LABEL) {
    INSERT_TAG (&LABELS (A68G_STANDENV), new_one);
  }
#undef INSERT_TAG
}

//! @brief Compose PROC moid from arguments - first result, than arguments.

MOID_T *a68g_proc (MOID_T * m, ...)
{
  va_list attribute;
  va_start (attribute, m);
  PACK_T *p = NO_PACK, *q = NO_PACK;
  MOID_T *y;
  while ((y = va_arg (attribute, MOID_T *)) != NO_MOID) {
    PACK_T *new_one = new_pack ();
    MOID (new_one) = y;
    TEXT (new_one) = NO_TEXT;
    NEXT (new_one) = NO_PACK;
    if (q != NO_PACK) {
      NEXT (q) = new_one;
    } else {
      p = new_one;
    }
    q = new_one;
  }
  va_end (attribute);
  return add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, count_pack_members (p), NO_NODE, m, p);
}

//! @brief Enter an identifier in standenv.

void a68g_idf (BOOL_T portable, char *n, MOID_T * m, GPROC * q)
{
  add_a68g_standenv (portable, IDENTIFIER, some_node (TEXT (add_token (&A68G (top_token), n))), NO_TEXT, m, 0, q);
}

void a68g_id2 (BOOL_T portable, char *n1, char *n2, MOID_T * m, GPROC * q)
{
  add_a68g_standenv (portable, IDENTIFIER, some_node (TEXT (add_token (&A68G (top_token), n1))), NO_TEXT, m, 0, q);
  add_a68g_standenv (A68G_EXT, IDENTIFIER, some_node (TEXT (add_token (&A68G (top_token), n2))), NO_TEXT, m, 0, q);
}

//! @brief Enter a moid in standenv.

void a68g_mode (int p, char *t, MOID_T ** m)
{
  (*m) = add_mode (&TOP_MOID (&A68G_JOB), STANDARD, p, some_node (TEXT (find_keyword (A68G (top_keyword), t))), NO_MOID, NO_PACK);
}

//! @brief Enter a priority in standenv.

void a68g_prio (char *p, int b)
{
  add_a68g_standenv (A68G_TRUE, PRIO_SYMBOL, some_node (TEXT (add_token (&A68G (top_token), p))), NO_TEXT, NO_MOID, b, NO_GPROC);
}

//! @brief Enter operator in standenv.

void a68g_op (BOOL_T portable, char *n, MOID_T * m, GPROC * q)
{
  add_a68g_standenv (portable, OP_SYMBOL, some_node (TEXT (add_token (&A68G (top_token), n))), NO_TEXT, m, 0, q);
}

//! @brief Enter standard modes in standenv.

void stand_moids (void)
{
// Primitive A68 moids.
  a68g_mode (0, "VOID", &M_VOID);
// Standard precision.
  a68g_mode (0, "INT", &M_INT);
  a68g_mode (0, "REAL", &M_REAL);
  a68g_mode (0, "COMPLEX", &M_COMPLEX);
  a68g_mode (0, "COMPL", &M_COMPL);
  a68g_mode (0, "BITS", &M_BITS);
  a68g_mode (0, "BYTES", &M_BYTES);
// Multiple precision.
  a68g_mode (1, "INT", &M_LONG_INT);
  a68g_mode (1, "REAL", &M_LONG_REAL);
  a68g_mode (1, "COMPLEX", &M_LONG_COMPLEX);
  a68g_mode (1, "COMPL", &M_LONG_COMPL);
  a68g_mode (1, "BITS", &M_LONG_BITS);
  a68g_mode (1, "BYTES", &M_LONG_BYTES);
  a68g_mode (2, "REAL", &M_LONG_LONG_REAL);
  a68g_mode (2, "INT", &M_LONG_LONG_INT);
  a68g_mode (2, "COMPLEX", &M_LONG_LONG_COMPLEX);
  a68g_mode (2, "COMPL", &M_LONG_LONG_COMPL);
#if (A68G_LEVEL < 3)
  a68g_mode (2, "BITS", &M_LONG_LONG_BITS);
#endif
// Other.
  a68g_mode (0, "BOOL", &M_BOOL);
  a68g_mode (0, "CHAR", &M_CHAR);
  a68g_mode (0, "STRING", &M_STRING);
  a68g_mode (0, "FILE", &M_FILE);
  a68g_mode (0, "CHANNEL", &M_CHANNEL);
  a68g_mode (0, "PIPE", &M_PIPE);
  a68g_mode (0, "FORMAT", &M_FORMAT);
  a68g_mode (0, "SEMA", &M_SEMA);
  a68g_mode (0, "SOUND", &M_SOUND);
  PORTABLE (M_PIPE) = A68G_FALSE;
  HAS_ROWS (M_SOUND) = A68G_TRUE;
  PORTABLE (M_SOUND) = A68G_FALSE;
// ROWS.
  M_ROWS = add_mode (&TOP_MOID (&A68G_JOB), ROWS_SYMBOL, 0, NO_NODE, NO_MOID, NO_PACK);
// REFs.
  M_REF_INT = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_INT, NO_PACK);
  M_REF_REAL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_REAL, NO_PACK);
  M_REF_COMPLEX = M_REF_COMPL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_COMPLEX, NO_PACK);
  M_REF_BITS = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_BITS, NO_PACK);
  M_REF_BYTES = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_BYTES, NO_PACK);
  M_REF_FORMAT = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_FORMAT, NO_PACK);
  M_REF_PIPE = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_PIPE, NO_PACK);
// Multiple precision.
  M_REF_LONG_INT = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_INT, NO_PACK);
  M_REF_LONG_REAL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_REAL, NO_PACK);
  M_REF_LONG_COMPLEX = M_REF_LONG_COMPL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_COMPLEX, NO_PACK);
  M_REF_LONG_BITS = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_BITS, NO_PACK);
  M_REF_LONG_LONG_INT = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_INT, NO_PACK);
  M_REF_LONG_LONG_REAL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_REAL, NO_PACK);
  M_REF_LONG_LONG_COMPLEX = M_REF_LONG_LONG_COMPL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_COMPLEX, NO_PACK);
#if (A68G_LEVEL < 3)
  M_REF_LONG_LONG_BITS = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_LONG_BITS, NO_PACK);
#endif
  M_REF_LONG_BYTES = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_LONG_BYTES, NO_PACK);
// Other.
  M_REF_BOOL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_BOOL, NO_PACK);
  M_REF_CHAR = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_CHAR, NO_PACK);
  M_REF_FILE = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_FILE, NO_PACK);
  M_REF_REF_FILE = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_REF_FILE, NO_PACK);
  M_REF_SOUND = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_SOUND, NO_PACK);
// [] INT.
  M_ROW_INT = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_INT, NO_PACK);
  HAS_ROWS (M_ROW_INT) = A68G_TRUE;
  SLICE (M_ROW_INT) = M_INT;
  M_REF_ROW_INT = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_INT, NO_PACK);
  NAME (M_REF_ROW_INT) = M_REF_INT;
// [] REAL.
  M_ROW_REAL = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_REAL, NO_PACK);
  HAS_ROWS (M_ROW_REAL) = A68G_TRUE;
  SLICE (M_ROW_REAL) = M_REAL;
  M_REF_ROW_REAL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_REAL, NO_PACK);
  NAME (M_REF_ROW_REAL) = M_REF_REAL;
// [,] REAL.
  M_ROW_ROW_REAL = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 2, NO_NODE, M_REAL, NO_PACK);
  HAS_ROWS (M_ROW_ROW_REAL) = A68G_TRUE;
  SLICE (M_ROW_ROW_REAL) = M_ROW_REAL;
  M_REF_ROW_ROW_REAL = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_ROW_REAL, NO_PACK);
  NAME (M_REF_ROW_ROW_REAL) = M_REF_ROW_REAL;
// [] COMPLEX.
  M_ROW_COMPLEX = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_COMPLEX, NO_PACK);
  HAS_ROWS (M_ROW_COMPLEX) = A68G_TRUE;
  SLICE (M_ROW_COMPLEX) = M_COMPLEX;
  M_REF_ROW_COMPLEX = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_COMPLEX, NO_PACK);
  NAME (M_REF_ROW_COMPLEX) = M_REF_COMPLEX;
// [,] COMPLEX.
  M_ROW_ROW_COMPLEX = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 2, NO_NODE, M_COMPLEX, NO_PACK);
  HAS_ROWS (M_ROW_ROW_COMPLEX) = A68G_TRUE;
  SLICE (M_ROW_ROW_COMPLEX) = M_ROW_COMPLEX;
  M_REF_ROW_ROW_COMPLEX = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_ROW_COMPLEX, NO_PACK);
  NAME (M_REF_ROW_ROW_COMPLEX) = M_REF_ROW_COMPLEX;
// [] BOOL.
  M_ROW_BOOL = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_BOOL, NO_PACK);
  HAS_ROWS (M_ROW_BOOL) = A68G_TRUE;
  SLICE (M_ROW_BOOL) = M_BOOL;
// FLEX [] BOOL.
  MOID_T *m = add_mode (&TOP_MOID (&A68G_JOB), FLEX_SYMBOL, 0, NO_NODE, M_ROW_BOOL, NO_PACK);
  HAS_ROWS (m) = A68G_TRUE;
  M_FLEX_ROW_BOOL = m;
// [] BITS.
  M_ROW_BITS = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_BITS, NO_PACK);
  HAS_ROWS (M_ROW_BITS) = A68G_TRUE;
  SLICE (M_ROW_BITS) = M_BITS;
// [] LONG BITS.
  M_ROW_LONG_BITS = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_LONG_BITS, NO_PACK);
  HAS_ROWS (M_ROW_LONG_BITS) = A68G_TRUE;
  SLICE (M_ROW_LONG_BITS) = M_LONG_BITS;
// [] CHAR.
  M_ROW_CHAR = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_CHAR, NO_PACK);
  HAS_ROWS (M_ROW_CHAR) = A68G_TRUE;
  SLICE (M_ROW_CHAR) = M_CHAR;
// [][] CHAR.
  M_ROW_ROW_CHAR = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_ROW_CHAR, NO_PACK);
  HAS_ROWS (M_ROW_ROW_CHAR) = A68G_TRUE;
  SLICE (M_ROW_ROW_CHAR) = M_ROW_CHAR;
// MODE STRING = FLEX [] CHAR.
  m = add_mode (&TOP_MOID (&A68G_JOB), FLEX_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK);
  HAS_ROWS (m) = A68G_TRUE;
  M_FLEX_ROW_CHAR = m;
  EQUIVALENT (M_STRING) = m;
// REF [] CHAR.
  M_REF_ROW_CHAR = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK);
  NAME (M_REF_ROW_CHAR) = M_REF_CHAR;
// PROC [] CHAR.
  M_PROC_ROW_CHAR = add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, 0, NO_NODE, M_ROW_CHAR, NO_PACK);
// REF STRING = REF FLEX [] CHAR.
  M_REF_STRING = add_mode (&TOP_MOID (&A68G_JOB), REF_SYMBOL, 0, NO_NODE, EQUIVALENT (M_STRING), NO_PACK);
  NAME (M_REF_STRING) = M_REF_CHAR;
  DEFLEXED (M_REF_STRING) = M_REF_ROW_CHAR;
// [] STRING.
  M_ROW_STRING = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_STRING, NO_PACK);
  HAS_ROWS (M_ROW_STRING) = A68G_TRUE;
  SLICE (M_ROW_STRING) = M_STRING;
  DEFLEXED (M_ROW_STRING) = M_ROW_ROW_CHAR;
// PROC STRING.
  M_PROC_STRING = add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, 0, NO_NODE, M_STRING, NO_PACK);
  DEFLEXED (M_PROC_STRING) = M_PROC_ROW_CHAR;
// COMPLEX.
  PACK_T *z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REAL, TEXT (add_token (&A68G (top_token), "im")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REAL, TEXT (add_token (&A68G (top_token), "re")), NO_NODE);
  m = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
  EQUIVALENT (M_COMPLEX) = EQUIVALENT (M_COMPL) = m;
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REF_REAL, TEXT (add_token (&A68G (top_token), "im")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REF_REAL, TEXT (add_token (&A68G (top_token), "re")), NO_NODE);
  m = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
  NAME (M_REF_COMPLEX) = NAME (M_REF_COMPL) = m;
// LONG COMPLEX.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_LONG_REAL, TEXT (add_token (&A68G (top_token), "im")), NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_REAL, TEXT (add_token (&A68G (top_token), "re")), NO_NODE);
  m = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
  EQUIVALENT (M_LONG_COMPLEX) = EQUIVALENT (M_LONG_COMPL) = m;
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REF_LONG_REAL, TEXT (add_token (&A68G (top_token), "im")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REF_LONG_REAL, TEXT (add_token (&A68G (top_token), "re")), NO_NODE);
  m = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
  NAME (M_REF_LONG_COMPLEX) = NAME (M_REF_LONG_COMPL) = m;
// LONG_LONG COMPLEX.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_LONG_LONG_REAL, TEXT (add_token (&A68G (top_token), "im")), NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_LONG_REAL, TEXT (add_token (&A68G (top_token), "re")), NO_NODE);
  m = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
  EQUIVALENT (M_LONG_LONG_COMPLEX) = EQUIVALENT (M_LONG_LONG_COMPL) = m;
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REF_LONG_LONG_REAL, TEXT (add_token (&A68G (top_token), "im")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REF_LONG_LONG_REAL, TEXT (add_token (&A68G (top_token), "re")), NO_NODE);
  m = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
  NAME (M_REF_LONG_LONG_COMPLEX) = NAME (M_REF_LONG_LONG_COMPL) = m;
// NUMBER.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_INT, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_INT, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_LONG_INT, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_LONG_REAL, NO_TEXT, NO_NODE);
  M_NUMBER = add_mode (&TOP_MOID (&A68G_JOB), UNION_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
// HEX_NUMBER.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_BOOL, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_CHAR, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_INT, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_INT, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_BITS, NO_TEXT, NO_NODE);
  (void) add_mode_to_pack (&z, M_LONG_BITS, NO_TEXT, NO_NODE);
  M_HEX_NUMBER = add_mode (&TOP_MOID (&A68G_JOB), UNION_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
// SEMA.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REF_INT, NO_TEXT, NO_NODE);
  EQUIVALENT (M_SEMA) = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
// PROC VOID.
  z = NO_PACK;
  M_PROC_VOID = add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_VOID, z);
// PROC (REAL) REAL.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REAL, NO_TEXT, NO_NODE);
  M_PROC_REAL_REAL = add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_REAL, z);
// PROC (LONG_REAL) LONG_REAL.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_LONG_REAL, NO_TEXT, NO_NODE);
  M_PROC_LONG_REAL_LONG_REAL = add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_LONG_REAL, z);
// IO: PROC (REF FILE) BOOL.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REF_FILE, NO_TEXT, NO_NODE);
  M_PROC_REF_FILE_BOOL = add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_BOOL, z);
// IO: PROC (REF FILE) VOID.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REF_FILE, NO_TEXT, NO_NODE);
  M_PROC_REF_FILE_VOID = add_mode (&TOP_MOID (&A68G_JOB), PROC_SYMBOL, count_pack_members (z), NO_NODE, M_VOID, z);
// IO: SIMPLIN and SIMPLOUT.
  M_SIMPLIN = add_mode (&TOP_MOID (&A68G_JOB), IN_TYPE_MODE, 0, NO_NODE, NO_MOID, NO_PACK);
  M_ROW_SIMPLIN = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_SIMPLIN, NO_PACK);
  SLICE (M_ROW_SIMPLIN) = M_SIMPLIN;
  M_SIMPLOUT = add_mode (&TOP_MOID (&A68G_JOB), OUT_TYPE_MODE, 0, NO_NODE, NO_MOID, NO_PACK);
  M_ROW_SIMPLOUT = add_mode (&TOP_MOID (&A68G_JOB), ROW_SYMBOL, 1, NO_NODE, M_SIMPLOUT, NO_PACK);
  SLICE (M_ROW_SIMPLOUT) = M_SIMPLOUT;
// PIPE.
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_INT, TEXT (add_token (&A68G (top_token), "pid")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REF_FILE, TEXT (add_token (&A68G (top_token), "write")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REF_FILE, TEXT (add_token (&A68G (top_token), "read")), NO_NODE);
  EQUIVALENT (M_PIPE) = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
  z = NO_PACK;
  (void) add_mode_to_pack (&z, M_REF_INT, TEXT (add_token (&A68G (top_token), "pid")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REF_REF_FILE, TEXT (add_token (&A68G (top_token), "write")), NO_NODE);
  (void) add_mode_to_pack (&z, M_REF_REF_FILE, TEXT (add_token (&A68G (top_token), "read")), NO_NODE);
  NAME (M_REF_PIPE) = add_mode (&TOP_MOID (&A68G_JOB), STRUCT_SYMBOL, count_pack_members (z), NO_NODE, NO_MOID, z);
}

//! @brief Set up standenv - general RR but not transput.

void stand_prelude (void)
{
// Identifiers.
  a68g_id2 (A68G_STD, "longlongpi", "qpi", M_LONG_LONG_REAL, genie_pi_mp);
//
  a68g_idf (A68G_EXT, "clock", M_REAL, genie_cputime);
  a68g_idf (A68G_EXT, "cputime", M_REAL, genie_cputime);
  a68g_idf (A68G_EXT, "seconds", M_REAL, genie_cputime);
  a68g_idf (A68G_STD, "bitslengths", M_INT, genie_bits_lengths);
  a68g_idf (A68G_STD, "bitsshorths", M_INT, genie_bits_shorths);
  a68g_idf (A68G_STD, "bitswidth", M_INT, genie_bits_width);
  a68g_idf (A68G_STD, "byteslengths", M_INT, genie_bytes_lengths);
  a68g_idf (A68G_STD, "bytesshorths", M_INT, genie_bytes_shorths);
  a68g_idf (A68G_STD, "byteswidth", M_INT, genie_bytes_width);
  a68g_idf (A68G_STD, "compllengths", M_INT, genie_complex_lengths);
  a68g_idf (A68G_STD, "complshorths", M_INT, genie_complex_shorths);
  a68g_idf (A68G_STD, "expwidth", M_INT, genie_exp_width);
  a68g_idf (A68G_STD, "infinity", M_REAL, genie_infinity_real);
  a68g_idf (A68G_STD, "inf", M_REAL, genie_infinity_real);
  a68g_idf (A68G_STD, "intlengths", M_INT, genie_int_lengths);
  a68g_idf (A68G_STD, "intshorths", M_INT, genie_int_shorths);
  a68g_idf (A68G_STD, "intwidth", M_INT, genie_int_width);
  a68g_idf (A68G_STD, "longbitswidth", M_INT, genie_long_bits_width);
  a68g_idf (A68G_STD, "longbyteswidth", M_INT, genie_long_bytes_width);
  a68g_idf (A68G_STD, "longexpwidth", M_INT, genie_long_exp_width);
  a68g_idf (A68G_STD, "longintwidth", M_INT, genie_long_int_width);
  a68g_idf (A68G_STD, "longlongexpwidth", M_INT, genie_long_mp_exp_width);
  a68g_idf (A68G_STD, "longlonginfinity", M_LONG_LONG_REAL, genie_infinity_mp);
  a68g_idf (A68G_STD, "longlonginf", M_LONG_LONG_REAL, genie_infinity_mp);
  a68g_idf (A68G_STD, "longlongintwidth", M_INT, genie_long_mp_int_width);
  a68g_idf (A68G_STD, "longlongmaxint", M_LONG_LONG_INT, genie_long_mp_max_int);
  a68g_idf (A68G_STD, "longlongmaxreal", M_LONG_LONG_REAL, genie_long_mp_max_real);
  a68g_idf (A68G_STD, "longlongmininf", M_LONG_LONG_REAL, genie_minus_infinity_mp);
  a68g_idf (A68G_STD, "longlongminreal", M_LONG_LONG_REAL, genie_long_mp_min_real);
  a68g_idf (A68G_STD, "longlongminusinfinity", M_LONG_LONG_REAL, genie_minus_infinity_mp);
  a68g_idf (A68G_STD, "longlongrealwidth", M_INT, genie_long_mp_real_width);
  a68g_idf (A68G_STD, "longlongsmallreal", M_LONG_LONG_REAL, genie_long_mp_small_real);
  a68g_idf (A68G_STD, "longrealwidth", M_INT, genie_long_real_width);
  a68g_idf (A68G_STD, "maxabschar", M_INT, genie_max_abs_char);
  a68g_idf (A68G_STD, "maxbits", M_BITS, genie_max_bits);
  a68g_idf (A68G_STD, "maxint", M_INT, genie_max_int);
  a68g_idf (A68G_STD, "maxreal", M_REAL, genie_max_real);
  a68g_idf (A68G_STD, "mininf", M_REAL, genie_minus_infinity_real);
  a68g_idf (A68G_STD, "minreal", M_REAL, genie_min_real);
  a68g_idf (A68G_STD, "minusinfinity", M_REAL, genie_minus_infinity_real);
  a68g_idf (A68G_STD, "mpradix", M_INT, genie_mp_radix);
  a68g_idf (A68G_STD, "nan", M_REAL, genie_nan_real);
  a68g_idf (A68G_STD, "pi", M_REAL, genie_pi);
  a68g_idf (A68G_STD, "reallengths", M_INT, genie_real_lengths);
  a68g_idf (A68G_STD, "realshorths", M_INT, genie_real_shorths);
  a68g_idf (A68G_STD, "realwidth", M_INT, genie_real_width);
  a68g_idf (A68G_STD, "smallreal", M_REAL, genie_small_real);
#if defined (BUILD_LINUX)
  a68g_idf (A68G_EXT, "wallclock", M_REAL, genie_walltime);
  a68g_idf (A68G_EXT, "wallseconds", M_REAL, genie_walltime);
  a68g_idf (A68G_EXT, "walltime", M_REAL, genie_walltime);
#endif
  MOID_T *m = a68g_proc (M_VOID, A68G_MCACHE (proc_void), NO_MOID);
  a68g_idf (A68G_EXT, "blocks", A68G_MCACHE (proc_int), genie_block);
  a68g_idf (A68G_EXT, "collections", A68G_MCACHE (proc_int), genie_garbage_collections);
  a68g_idf (A68G_EXT, "collectseconds", A68G_MCACHE (proc_real), genie_garbage_seconds);
  a68g_idf (A68G_EXT, "garbage", A68G_MCACHE (proc_int), genie_garbage_freed);
  a68g_idf (A68G_EXT, "garbagecollections", A68G_MCACHE (proc_int), genie_garbage_collections);
  a68g_idf (A68G_EXT, "garbagefreed", A68G_MCACHE (proc_int), genie_garbage_freed);
  a68g_idf (A68G_EXT, "garbagerefused", A68G_MCACHE (proc_int), genie_garbage_refused);
  a68g_idf (A68G_EXT, "garbageseconds", A68G_MCACHE (proc_real), genie_garbage_seconds);
  a68g_idf (A68G_EXT, "ongcevent", m, genie_on_gc_event);
  a68g_idf (A68G_EXT, "sweeps", A68G_MCACHE (proc_int), genie_garbage_collections);
  a68g_idf (A68G_EXT, "sweepsrefused", A68G_MCACHE (proc_int), genie_garbage_refused);
  a68g_idf (A68G_EXT, "stackpointer", M_INT, genie_stack_pointer);
  a68g_idf (A68G_EXT, "systemstackpointer", M_INT, genie_system_stack_pointer);
  a68g_idf (A68G_EXT, "systemstacksize", M_INT, genie_system_stack_size);
  a68g_idf (A68G_EXT, "actualstacksize", M_INT, genie_stack_pointer);
  a68g_idf (A68G_EXT, "heappointer", M_INT, genie_system_heap_pointer);
  a68g_idf (A68G_EXT, "systemheappointer", M_INT, genie_system_heap_pointer);
  a68g_idf (A68G_EXT, "gcheap", A68G_MCACHE (proc_void), genie_gc_heap);
  a68g_idf (A68G_EXT, "sweepheap", A68G_MCACHE (proc_void), genie_gc_heap);
  a68g_idf (A68G_EXT, "preemptivegc", A68G_MCACHE (proc_void), genie_preemptive_gc_heap);
  a68g_idf (A68G_EXT, "preemptivesweep", A68G_MCACHE (proc_void), genie_preemptive_gc_heap);
  a68g_idf (A68G_EXT, "preemptivesweepheap", A68G_MCACHE (proc_void), genie_preemptive_gc_heap);
  a68g_idf (A68G_EXT, "backtrace", A68G_MCACHE (proc_void), genie_backtrace);
  a68g_idf (A68G_EXT, "break", A68G_MCACHE (proc_void), genie_break);
  a68g_idf (A68G_EXT, "debug", A68G_MCACHE (proc_void), genie_debug);
  a68g_idf (A68G_EXT, "monitor", A68G_MCACHE (proc_void), genie_debug);
  m = a68g_proc (M_VOID, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "abend", m, genie_abend);
  m = a68g_proc (M_STRING, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "evaluate", m, genie_evaluate);
  m = a68g_proc (M_INT, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "system", m, genie_system);
  m = A68G_MCACHE (proc_int_int);
  a68g_idf (A68G_EXT, "sleep", m, genie_sleep);
// Machine environ parameters.
  a68g_idf (A68G_EXT, "i32mach", A68G_MCACHE (proc_int_int), genie_i32mach);
  a68g_idf (A68G_EXT, "r64mach", A68G_MCACHE (proc_int_real), genie_i32mach);
#if (A68G_LEVEL >= 3)
  m = a68g_proc (M_LONG_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "i64mach", m, genie_i64mach);
  m = a68g_proc (M_LONG_REAL, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "r128mach", m, genie_r128mach);
#endif
// BITS procedures.
  m = a68g_proc (M_BITS, M_ROW_BOOL, NO_MOID);
  a68g_idf (A68G_STD, "bitspack", m, genie_bits_pack);
// RNG procedures.
  m = a68g_proc (M_VOID, M_INT, NO_MOID);
  a68g_idf (A68G_STD, "firstrandom", m, genie_first_random);
  m = A68G_MCACHE (proc_real);
  a68g_idf (A68G_STD, "nextrandom", m, genie_next_random);
  a68g_idf (A68G_STD, "random", m, genie_next_random);
  a68g_idf (A68G_STD, "rnd", m, genie_next_rnd);
  m = a68g_proc (M_LONG_LONG_REAL, NO_MOID);
  a68g_idf (A68G_STD, "longlongnextrandom", m, genie_long_next_random);
  a68g_idf (A68G_STD, "longlongrandom", m, genie_long_next_random);
// Priorities.
  a68g_prio ("+:=", 1);
  a68g_prio ("-:=", 1);
  a68g_prio ("*:=", 1);
  a68g_prio ("/:=", 1);
  a68g_prio ("%:=", 1);
  a68g_prio ("%*:=", 1);
  a68g_prio ("+=:", 1);
  a68g_prio ("PLUSAB", 1);
  a68g_prio ("MINUSAB", 1);
  a68g_prio ("TIMESAB", 1);
  a68g_prio ("DIVAB", 1);
  a68g_prio ("OVERAB", 1);
  a68g_prio ("MODAB", 1);
  a68g_prio ("PLUSTO", 1);
  a68g_prio ("OR", 2);
  a68g_prio ("AND", 3);
  a68g_prio ("&", 3);
  a68g_prio ("XOR", 3);
  a68g_prio ("=", 4);
  a68g_prio ("/=", 4);
  a68g_prio ("~=", 4);
  a68g_prio ("^=", 4);
  a68g_prio ("<", 5);
  a68g_prio ("<=", 5);
  a68g_prio (">", 5);
  a68g_prio (">=", 5);
  a68g_prio ("EQ", 4);
  a68g_prio ("NE", 4);
  a68g_prio ("LT", 5);
  a68g_prio ("LE", 5);
  a68g_prio ("GT", 5);
  a68g_prio ("GE", 5);
  a68g_prio ("+", 6);
  a68g_prio ("-", 6);
  a68g_prio ("*", 7);
  a68g_prio ("/", 7);
  a68g_prio ("OVER", 7);
  a68g_prio ("%", 7);
  a68g_prio ("MOD", 7);
  a68g_prio ("%*", 7);
  a68g_prio ("ELEM", 7);
  a68g_prio ("SET", 7);
  a68g_prio ("CLEAR", 7);
  a68g_prio ("**", 8);
  a68g_prio ("SHL", 8);
  a68g_prio ("SHR", 8);
  a68g_prio ("ROL", 8);
  a68g_prio ("ROR", 8);
  a68g_prio ("UP", 8);
  a68g_prio ("DOWN", 8);
  a68g_prio ("^", 8);
  a68g_prio ("ELEMS", 8);
  a68g_prio ("LWB", 8);
  a68g_prio ("UPB", 8);
  a68g_prio ("SORT", 8);
  a68g_prio ("I", 9);
  a68g_prio ("+*", 9);
// INT ops.
  m = a68g_proc (M_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_int);
  a68g_op (A68G_STD, "ABS", m, genie_abs_int);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_int);
  m = a68g_proc (M_BOOL, M_INT, NO_MOID);
  a68g_op (A68G_STD, "ODD", m, genie_odd_int);
  m = a68g_proc (M_BOOL, M_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_int);
  a68g_op (A68G_STD, "/=", m, genie_ne_int);
  a68g_op (A68G_STD, "~=", m, genie_ne_int);
  a68g_op (A68G_STD, "^=", m, genie_ne_int);
  a68g_op (A68G_STD, "<", m, genie_lt_int);
  a68g_op (A68G_STD, "<=", m, genie_le_int);
  a68g_op (A68G_STD, ">", m, genie_gt_int);
  a68g_op (A68G_STD, ">=", m, genie_ge_int);
  a68g_op (A68G_STD, "EQ", m, genie_eq_int);
  a68g_op (A68G_STD, "NE", m, genie_ne_int);
  a68g_op (A68G_STD, "LT", m, genie_lt_int);
  a68g_op (A68G_STD, "LE", m, genie_le_int);
  a68g_op (A68G_STD, "GT", m, genie_gt_int);
  a68g_op (A68G_STD, "GE", m, genie_ge_int);
  m = a68g_proc (M_INT, M_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_int);
  a68g_op (A68G_STD, "-", m, genie_sub_int);
  a68g_op (A68G_STD, "*", m, genie_mul_int);
  a68g_op (A68G_STD, "OVER", m, genie_over_int);
  a68g_op (A68G_STD, "%", m, genie_over_int);
  a68g_op (A68G_STD, "MOD", m, genie_mod_int);
  a68g_op (A68G_STD, "%*", m, genie_mod_int);
  a68g_op (A68G_STD, "**", m, genie_pow_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_int);
  a68g_op (A68G_STD, "^", m, genie_pow_int);
  m = a68g_proc (M_REAL, M_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "/", m, genie_div_int);
  m = a68g_proc (M_REF_INT, M_REF_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_int);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_int);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_int);
  a68g_op (A68G_STD, "%:=", m, genie_overab_int);
  a68g_op (A68G_STD, "%*:=", m, genie_modab_int);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_int);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_int);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_int);
  a68g_op (A68G_STD, "OVERAB", m, genie_overab_int);
  a68g_op (A68G_STD, "MODAB", m, genie_modab_int);
// REAL ops.
  m = A68G_MCACHE (proc_real_real);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_real);
  a68g_op (A68G_STD, "ABS", m, genie_abs_real);
  m = a68g_proc (M_INT, M_REAL, NO_MOID);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_real);
  a68g_op (A68G_STD, "ROUND", m, genie_round_real);
  a68g_op (A68G_STD, "ENTIER", m, genie_entier_real);
  m = a68g_proc (M_BOOL, M_REAL, M_REAL, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_real);
  a68g_op (A68G_STD, "/=", m, genie_ne_real);
  a68g_op (A68G_STD, "~=", m, genie_ne_real);
  a68g_op (A68G_STD, "^=", m, genie_ne_real);
  a68g_op (A68G_STD, "<", m, genie_lt_real);
  a68g_op (A68G_STD, "<=", m, genie_le_real);
  a68g_op (A68G_STD, ">", m, genie_gt_real);
  a68g_op (A68G_STD, ">=", m, genie_ge_real);
  a68g_op (A68G_STD, "EQ", m, genie_eq_real);
  a68g_op (A68G_STD, "NE", m, genie_ne_real);
  a68g_op (A68G_STD, "LT", m, genie_lt_real);
  a68g_op (A68G_STD, "LE", m, genie_le_real);
  a68g_op (A68G_STD, "GT", m, genie_gt_real);
  a68g_op (A68G_STD, "GE", m, genie_ge_real);
  m = A68G_MCACHE (proc_real_real_real);
  a68g_op (A68G_STD, "+", m, genie_add_real);
  a68g_op (A68G_STD, "-", m, genie_sub_real);
  a68g_op (A68G_STD, "*", m, genie_mul_real);
  a68g_op (A68G_STD, "/", m, genie_div_real);
  a68g_op (A68G_STD, "**", m, genie_pow_real);
  a68g_op (A68G_STD, "UP", m, genie_pow_real);
  a68g_op (A68G_STD, "^", m, genie_pow_real);
  m = a68g_proc (M_REAL, M_REAL, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_real_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_real_int);
  a68g_op (A68G_STD, "^", m, genie_pow_real_int);
  m = a68g_proc (M_REF_REAL, M_REF_REAL, M_REAL, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_real);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_real);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_real);
  a68g_op (A68G_STD, "/:=", m, genie_divab_real);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_real);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_real);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_real);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_real);
// Procedures
  m = A68G_MCACHE (proc_real_real);
  a68g_id2 (A68G_EXT, "arccosdg", "acosdg", m, genie_acosdg_real);
  a68g_id2 (A68G_EXT, "arccosh", "acosh", m, genie_acosh_real);
  a68g_id2 (A68G_EXT, "arccot", "acot", m, genie_acot_real);
  a68g_id2 (A68G_EXT, "arccotdg", "acotdg", m, genie_acotdg_real);
  a68g_id2 (A68G_EXT, "arccsc", "acsc", m, genie_acsc_real);
  a68g_id2 (A68G_EXT, "arccscdg", "acscdg", m, genie_acscdg_real);
  a68g_id2 (A68G_EXT, "arcsec", "asec", m, genie_asec_real);
  a68g_id2 (A68G_EXT, "arcsecdg", "asecdg", m, genie_asecdg_real);
  a68g_id2 (A68G_EXT, "arcsindg", "asindg", m, genie_asindg_real);
  a68g_id2 (A68G_EXT, "arcsinh", "asinh", m, genie_asinh_real);
  a68g_id2 (A68G_EXT, "arctandg", "atandg", m, genie_atandg_real);
  a68g_id2 (A68G_EXT, "arctanh", "atanh", m, genie_atanh_real);
  a68g_id2 (A68G_STD, "arccos", "acos", m, genie_acos_real);
  a68g_id2 (A68G_STD, "arcsin", "asin", m, genie_asin_real);
  a68g_id2 (A68G_STD, "arctan", "atan", m, genie_atan_real);
  a68g_idf (A68G_EXT, "cas", m, genie_cas_real);
  a68g_idf (A68G_EXT, "cbrt", m, genie_curt_real);
  a68g_idf (A68G_EXT, "cosdg", m, genie_cosdg_real);
  a68g_idf (A68G_EXT, "cosh", m, genie_cosh_real);
  a68g_idf (A68G_EXT, "cospi", m, genie_cospi_real);
  a68g_idf (A68G_EXT, "cotdg", m, genie_cotdg_real);
  a68g_idf (A68G_EXT, "cot", m, genie_cot_real);
  a68g_idf (A68G_EXT, "cotpi", m, genie_cotpi_real);
  a68g_idf (A68G_EXT, "cscdg", m, genie_cscdg_real);
  a68g_idf (A68G_EXT, "csc", m, genie_csc_real);
  a68g_idf (A68G_EXT, "curt", m, genie_curt_real);
  a68g_idf (A68G_EXT, "erfc", m, genie_erfc_real);
  a68g_idf (A68G_EXT, "erf", m, genie_erf_real);
  a68g_idf (A68G_EXT, "gamma", m, genie_gamma_real);
  a68g_idf (A68G_EXT, "inverfc", m, genie_inverfc_real);
  a68g_idf (A68G_EXT, "inverf", m, genie_inverf_real);
  a68g_idf (A68G_EXT, "inverseerfc", m, genie_inverfc_real);
  a68g_idf (A68G_EXT, "inverseerf", m, genie_inverf_real);
  a68g_idf (A68G_EXT, "ln1p", m, genie_ln1p_real);
  a68g_idf (A68G_EXT, "lngamma", m, genie_ln_gamma_real);
  a68g_idf (A68G_EXT, "secdg", m, genie_secdg_real);
  a68g_idf (A68G_EXT, "sec", m, genie_sec_real);
  a68g_idf (A68G_EXT, "sindg", m, genie_sindg_real);
  a68g_idf (A68G_EXT, "sinh", m, genie_sinh_real);
  a68g_idf (A68G_EXT, "sinpi", m, genie_sinpi_real);
  a68g_idf (A68G_EXT, "tandg", m, genie_tandg_real);
  a68g_idf (A68G_EXT, "tanh", m, genie_tanh_real);
  a68g_idf (A68G_EXT, "tanpi", m, genie_tanpi_real);
  a68g_idf (A68G_STD, "cos", m, genie_cos_real);
  a68g_idf (A68G_STD, "exp", m, genie_exp_real);
  a68g_idf (A68G_STD, "ln", m, genie_ln_real);
  a68g_idf (A68G_STD, "log", m, genie_log_real);
  a68g_idf (A68G_STD, "sin", m, genie_sin_real);
  a68g_idf (A68G_STD, "sqrt", m, genie_sqrt_real);
  a68g_idf (A68G_STD, "tan", m, genie_tan_real);
// Miscellaneous.
  a68g_id2 (A68G_EXT, "arctan2", "atan2", A68G_MCACHE (proc_real_real_real), genie_atan2_real);
  a68g_id2 (A68G_EXT, "arctan2dg", "atan2dg", A68G_MCACHE (proc_real_real_real), genie_atan2dg_real);
  a68g_idf (A68G_EXT, "beta", A68G_MCACHE (proc_real_real_real), genie_beta_real);
  a68g_idf (A68G_EXT, "betainc", A68G_MCACHE (proc_real_real_real_real), genie_beta_inc_cf_real);
  a68g_idf (A68G_EXT, "choose", A68G_MCACHE (proc_int_int_real), genie_choose_real);
  a68g_idf (A68G_EXT, "fact", A68G_MCACHE (proc_int_real), genie_fact_real);
  a68g_idf (A68G_EXT, "gammainc", A68G_MCACHE (proc_real_real_real), genie_gamma_inc_h_real);
  a68g_idf (A68G_EXT, "gammaincf", A68G_MCACHE (proc_real_real_real), genie_gamma_inc_f_real);
  a68g_idf (A68G_EXT, "gammaincg", A68G_MCACHE (proc_real_real_real_real_real), genie_gamma_inc_g_real);
  a68g_idf (A68G_EXT, "gammaincgf", A68G_MCACHE (proc_real_real_real), genie_gamma_inc_gf_real);
  a68g_idf (A68G_EXT, "lje126", A68G_MCACHE (proc_real_real_real_real), genie_lj_e_12_6);
  a68g_idf (A68G_EXT, "ljf126", A68G_MCACHE (proc_real_real_real_real), genie_lj_f_12_6);
  a68g_idf (A68G_EXT, "lnbeta", A68G_MCACHE (proc_real_real_real), genie_ln_beta_real);
  a68g_idf (A68G_EXT, "lnchoose", A68G_MCACHE (proc_int_int_real), genie_ln_choose_real);
  a68g_idf (A68G_EXT, "lnfact", A68G_MCACHE (proc_int_real), genie_ln_fact_real);
// COMPLEX ops.
  m = a68g_proc (M_COMPLEX, M_REAL, M_REAL, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_i_complex);
  a68g_op (A68G_STD, "+*", m, genie_i_complex);
  m = a68g_proc (M_COMPLEX, M_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_i_int_complex);
  a68g_op (A68G_STD, "+*", m, genie_i_int_complex);
  m = a68g_proc (M_REAL, M_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "RE", m, genie_re_complex);
  a68g_op (A68G_STD, "IM", m, genie_im_complex);
  a68g_op (A68G_STD, "ABS", m, genie_abs_complex);
  a68g_op (A68G_STD, "ARG", m, genie_arg_complex);
  m = A68G_MCACHE (proc_complex_complex);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_complex);
  a68g_op (A68G_STD, "CONJ", m, genie_conj_complex);
  m = a68g_proc (M_BOOL, M_COMPLEX, M_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_complex);
  a68g_op (A68G_STD, "/=", m, genie_ne_complex);
  a68g_op (A68G_STD, "~=", m, genie_ne_complex);
  a68g_op (A68G_STD, "^=", m, genie_ne_complex);
  a68g_op (A68G_STD, "EQ", m, genie_eq_complex);
  a68g_op (A68G_STD, "NE", m, genie_ne_complex);
  m = a68g_proc (M_COMPLEX, M_COMPLEX, M_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_complex);
  a68g_op (A68G_STD, "-", m, genie_sub_complex);
  a68g_op (A68G_STD, "*", m, genie_mul_complex);
  a68g_op (A68G_STD, "/", m, genie_div_complex);
  m = a68g_proc (M_COMPLEX, M_COMPLEX, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_complex_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_complex_int);
  a68g_op (A68G_STD, "^", m, genie_pow_complex_int);
  m = a68g_proc (M_REF_COMPLEX, M_REF_COMPLEX, M_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_complex);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_complex);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_complex);
  a68g_op (A68G_STD, "/:=", m, genie_divab_complex);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_complex);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_complex);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_complex);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_complex);
  m = A68G_MCACHE (proc_complex_complex);
  a68g_id2 (A68G_EXT, "complexarccosh", "cacosh", m, genie_acosh_complex);
  a68g_id2 (A68G_EXT, "complexarccos", "cacos", m, genie_acos_complex);
  a68g_id2 (A68G_EXT, "complexarcsinh", "casinh", m, genie_asinh_complex);
  a68g_id2 (A68G_EXT, "complexarcsin", "casin", m, genie_asin_complex);
  a68g_id2 (A68G_EXT, "complexarctanh", "catanh", m, genie_atanh_complex);
  a68g_id2 (A68G_EXT, "complexarctan", "catan", m, genie_atan_complex);
  a68g_id2 (A68G_EXT, "complexcosh", "ccosh", m, genie_cosh_complex);
  a68g_id2 (A68G_EXT, "complexcos", "ccos", m, genie_cos_complex);
  a68g_id2 (A68G_EXT, "complexexp", "cexp", m, genie_exp_complex);
  a68g_id2 (A68G_EXT, "complexln", "cln", m, genie_ln_complex);
  a68g_id2 (A68G_EXT, "complexsinh", "csinh", m, genie_sinh_complex);
  a68g_id2 (A68G_EXT, "complexsin", "csin", m, genie_sin_complex);
  a68g_id2 (A68G_EXT, "complexsqrt", "csqrt", m, genie_sqrt_complex);
  a68g_id2 (A68G_EXT, "complextanh", "ctanh", m, genie_tanh_complex);
  a68g_id2 (A68G_EXT, "complextan", "ctan", m, genie_tan_complex);
// BOOL ops.
  m = a68g_proc (M_BOOL, M_BOOL, NO_MOID);
  a68g_op (A68G_STD, "NOT", m, genie_not_bool);
  a68g_op (A68G_STD, "~", m, genie_not_bool);
  m = a68g_proc (M_INT, M_BOOL, NO_MOID);
  a68g_op (A68G_STD, "ABS", m, genie_abs_bool);
  m = a68g_proc (M_BOOL, M_BOOL, M_BOOL, NO_MOID);
  a68g_op (A68G_STD, "OR", m, genie_or_bool);
  a68g_op (A68G_STD, "AND", m, genie_and_bool);
  a68g_op (A68G_STD, "&", m, genie_and_bool);
  a68g_op (A68G_EXT, "XOR", m, genie_xor_bool);
  a68g_op (A68G_STD, "=", m, genie_eq_bool);
  a68g_op (A68G_STD, "/=", m, genie_ne_bool);
  a68g_op (A68G_STD, "~=", m, genie_ne_bool);
  a68g_op (A68G_STD, "^=", m, genie_ne_bool);
  a68g_op (A68G_STD, "EQ", m, genie_eq_bool);
  a68g_op (A68G_STD, "NE", m, genie_ne_bool);
// CHAR ops.
  m = a68g_proc (M_BOOL, M_CHAR, M_CHAR, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_char);
  a68g_op (A68G_STD, "/=", m, genie_ne_char);
  a68g_op (A68G_STD, "~=", m, genie_ne_char);
  a68g_op (A68G_STD, "^=", m, genie_ne_char);
  a68g_op (A68G_STD, "<", m, genie_lt_char);
  a68g_op (A68G_STD, "<=", m, genie_le_char);
  a68g_op (A68G_STD, ">", m, genie_gt_char);
  a68g_op (A68G_STD, ">=", m, genie_ge_char);
  a68g_op (A68G_STD, "EQ", m, genie_eq_char);
  a68g_op (A68G_STD, "NE", m, genie_ne_char);
  a68g_op (A68G_STD, "LT", m, genie_lt_char);
  a68g_op (A68G_STD, "LE", m, genie_le_char);
  a68g_op (A68G_STD, "GT", m, genie_gt_char);
  a68g_op (A68G_STD, "GE", m, genie_ge_char);
  m = a68g_proc (M_INT, M_CHAR, NO_MOID);
  a68g_op (A68G_STD, "ABS", m, genie_abs_char);
  m = a68g_proc (M_CHAR, M_INT, NO_MOID);
  a68g_op (A68G_STD, "REPR", m, genie_repr_char);
  m = a68g_proc (M_BOOL, M_CHAR, NO_MOID);
  a68g_idf (A68G_EXT, "isalnum", m, genie_is_alnum);
  a68g_idf (A68G_EXT, "isalpha", m, genie_is_alpha);
  a68g_idf (A68G_EXT, "iscntrl", m, genie_is_cntrl);
  a68g_idf (A68G_EXT, "isdigit", m, genie_is_digit);
  a68g_idf (A68G_EXT, "isgraph", m, genie_is_graph);
  a68g_idf (A68G_EXT, "islower", m, genie_is_lower);
  a68g_idf (A68G_EXT, "isprint", m, genie_is_print);
  a68g_idf (A68G_EXT, "ispunct", m, genie_is_punct);
  a68g_idf (A68G_EXT, "isspace", m, genie_is_space);
  a68g_idf (A68G_EXT, "isupper", m, genie_is_upper);
  a68g_idf (A68G_EXT, "isxdigit", m, genie_is_xdigit);
  m = a68g_proc (M_CHAR, M_CHAR, NO_MOID);
  a68g_idf (A68G_EXT, "tolower", m, genie_to_lower);
  a68g_idf (A68G_EXT, "toupper", m, genie_to_upper);
// BITS ops.
  m = a68g_proc (M_INT, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "ABS", m, genie_abs_bits);
  m = a68g_proc (M_BITS, M_INT, NO_MOID);
  a68g_op (A68G_STD, "BIN", m, genie_bin_int);
  m = a68g_proc (M_BITS, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "NOT", m, genie_not_bits);
  a68g_op (A68G_STD, "~", m, genie_not_bits);
  m = a68g_proc (M_BOOL, M_BITS, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_bits);
  a68g_op (A68G_STD, "/=", m, genie_ne_bits);
  a68g_op (A68G_STD, "~=", m, genie_ne_bits);
  a68g_op (A68G_STD, "^=", m, genie_ne_bits);
  a68g_op (A68G_STD, "<=", m, genie_le_bits);
  a68g_op (A68G_STD, ">=", m, genie_ge_bits);
  a68g_op (A68G_STD, "EQ", m, genie_eq_bits);
  a68g_op (A68G_STD, "NE", m, genie_ne_bits);
  a68g_op (A68G_STD, "LE", m, genie_le_bits);
  a68g_op (A68G_STD, "GE", m, genie_ge_bits);
#if (A68G_LEVEL >= 3)
  a68g_op (A68G_EXT, "<", m, genie_lt_bits);
  a68g_op (A68G_EXT, ">", m, genie_gt_bits);
  a68g_op (A68G_EXT, "LT", m, genie_lt_bits);
  a68g_op (A68G_EXT, "GT", m, genie_gt_bits);
#endif
  m = a68g_proc (M_BITS, M_BITS, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "AND", m, genie_and_bits);
  a68g_op (A68G_STD, "&", m, genie_and_bits);
  a68g_op (A68G_STD, "OR", m, genie_or_bits);
  a68g_op (A68G_EXT, "XOR", m, genie_xor_bits);
  a68g_op (A68G_EXT, "+", m, genie_add_bits);
  a68g_op (A68G_EXT, "-", m, genie_sub_bits);
  a68g_op (A68G_EXT, "*", m, genie_times_bits);
  a68g_op (A68G_EXT, "OVER", m, genie_over_bits);
  a68g_op (A68G_EXT, "MOD", m, genie_over_bits);
  m = a68g_proc (M_BITS, M_BITS, M_INT, NO_MOID);
  a68g_op (A68G_STD, "SHL", m, genie_shl_bits);
  a68g_op (A68G_STD, "UP", m, genie_shl_bits);
  a68g_op (A68G_STD, "SHR", m, genie_shr_bits);
  a68g_op (A68G_STD, "DOWN", m, genie_shr_bits);
  a68g_op (A68G_EXT, "ROL", m, genie_rol_bits);
  a68g_op (A68G_EXT, "ROR", m, genie_ror_bits);
  m = a68g_proc (M_BOOL, M_INT, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "ELEM", m, genie_elem_bits);
  m = a68g_proc (M_BITS, M_INT, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "SET", m, genie_set_bits);
  a68g_op (A68G_STD, "CLEAR", m, genie_clear_bits);
// LONG LONG INT in software
  m = a68g_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_mp);
  a68g_op (A68G_STD, "ABS", m, genie_abs_mp);
  m = a68g_proc (M_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_mp);
  m = a68g_proc (M_BOOL, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "ODD", m, genie_odd_mp);
  m = a68g_proc (M_LONG_LONG_INT, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "ENTIER", m, genie_entier_mp);
  a68g_op (A68G_STD, "ROUND", m, genie_round_mp);
  m = a68g_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_mp_int);
  a68g_op (A68G_STD, "-", m, genie_sub_mp_int);
  a68g_op (A68G_STD, "*", m, genie_mul_mp_int);
  a68g_op (A68G_STD, "OVER", m, genie_over_mp);
  a68g_op (A68G_STD, "%", m, genie_over_mp);
  a68g_op (A68G_STD, "MOD", m, genie_mod_mp);
  a68g_op (A68G_STD, "%*", m, genie_mod_mp);
  m = a68g_proc (M_REF_LONG_LONG_INT, M_REF_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_mp_int);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_mp_int);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_mp_int);
  a68g_op (A68G_STD, "%:=", m, genie_overab_mp);
  a68g_op (A68G_STD, "%*:=", m, genie_modab_mp);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_mp_int);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_mp_int);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_mp_int);
  a68g_op (A68G_STD, "OVERAB", m, genie_overab_mp);
  a68g_op (A68G_STD, "MODAB", m, genie_modab_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "/", m, genie_div_mp);
  m = a68g_proc (M_BOOL, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "EQ", m, genie_eq_mp);
  a68g_op (A68G_STD, "NE", m, genie_ne_mp);
  a68g_op (A68G_STD, "GE", m, genie_ge_mp);
  a68g_op (A68G_STD, "GT", m, genie_gt_mp);
  a68g_op (A68G_STD, "LE", m, genie_le_mp);
  a68g_op (A68G_STD, "LT", m, genie_lt_mp);
  a68g_op (A68G_STD, "=", m, genie_eq_mp);
  a68g_op (A68G_STD, ">=", m, genie_ge_mp);
  a68g_op (A68G_STD, ">", m, genie_gt_mp);
  a68g_op (A68G_STD, "<=", m, genie_le_mp);
  a68g_op (A68G_STD, "<", m, genie_lt_mp);
  a68g_op (A68G_STD, "/=", m, genie_ne_mp);
  a68g_op (A68G_STD, "^=", m, genie_ne_mp);
  a68g_op (A68G_STD, "~=", m, genie_ne_mp);
  m = a68g_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_mp_int_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp_int_int);
  a68g_op (A68G_STD, "^", m, genie_pow_mp_int_int);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_idle);
  a68g_op (A68G_STD, "+*", m, genie_idle);
// LONG LONG REAL in software
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "ABS", m, genie_abs_mp);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_mp);
  m = a68g_proc (M_INT, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longlongarccosdg", "qacosdg", m, genie_acosdg_mp);
  a68g_id2 (A68G_EXT, "longlongarccosh", "qacosh", m, genie_acosh_mp);
  a68g_id2 (A68G_EXT, "longlongarccotdg", "qacotdg", m, genie_acotdg_mp);
  a68g_id2 (A68G_EXT, "longlongarccot", "qacot", m, genie_acot_mp);
  a68g_id2 (A68G_EXT, "longlongarccscdg", "qacscdg", m, genie_acscdg_mp);
  a68g_id2 (A68G_EXT, "longlongarccsc", "qacsc", m, genie_acsc_mp);
  a68g_id2 (A68G_EXT, "longlongarcsecdg", "qasecdg", m, genie_asecdg_mp);
  a68g_id2 (A68G_EXT, "longlongarcsec", "qasec", m, genie_asec_mp);
  a68g_id2 (A68G_EXT, "longlongarcsindg", "qasindg", m, genie_asindg_mp);
  a68g_id2 (A68G_EXT, "longlongarcsinh", "qasinh", m, genie_asinh_mp);
  a68g_id2 (A68G_EXT, "longlongarctandg", "qatandg", m, genie_atandg_mp);
  a68g_id2 (A68G_EXT, "longlongarctanh", "qatanh", m, genie_atanh_mp);
  a68g_id2 (A68G_EXT, "longlongcas", "qcas", m, genie_cas_mp);
  a68g_id2 (A68G_EXT, "longlongcbrt", "qcbrt", m, genie_curt_mp);
  a68g_id2 (A68G_EXT, "longlongcosdg", "qcosdg", m, genie_cosdg_mp);
  a68g_id2 (A68G_EXT, "longlongcosh", "qcosh", m, genie_cosh_mp);
  a68g_id2 (A68G_EXT, "longlongcospi", "qcospi", m, genie_cospi_mp);
  a68g_id2 (A68G_EXT, "longlongcotdg", "qcotdg", m, genie_cotdg_mp);
  a68g_id2 (A68G_EXT, "longlongcotpi", "qcotpi", m, genie_cotpi_mp);
  a68g_id2 (A68G_EXT, "longlongcot", "qcot", m, genie_cot_mp);
  a68g_id2 (A68G_EXT, "longlongcscdg", "qcscdg", m, genie_cscdg_mp);
  a68g_id2 (A68G_EXT, "longlongcsc", "qcsc", m, genie_csc_mp);
  a68g_id2 (A68G_EXT, "longlongcurt", "qcurt", m, genie_curt_mp);
  a68g_id2 (A68G_EXT, "longlongerfc", "qerfc", m, genie_erfc_mp);
  a68g_id2 (A68G_EXT, "longlongerf", "qerf", m, genie_erf_mp);
  a68g_id2 (A68G_EXT, "longlonggamma", "qgamma", m, genie_gamma_mp);
  a68g_id2 (A68G_EXT, "longlonginverfc", "qinverfc", m, genie_inverfc_mp);
  a68g_id2 (A68G_EXT, "longlonginverf", "qinverf", m, genie_inverf_mp);
  a68g_id2 (A68G_EXT, "longlonglngamma", "qlngamma", m, genie_lngamma_mp);
  a68g_id2 (A68G_EXT, "longlongsecdg", "qsecdg", m, genie_secdg_mp);
  a68g_id2 (A68G_EXT, "longlongsec", "qsec", m, genie_sec_mp);
  a68g_id2 (A68G_EXT, "longlongsindg", "qsindg", m, genie_sindg_mp);
  a68g_id2 (A68G_EXT, "longlongsinh", "qsinh", m, genie_sinh_mp);
  a68g_id2 (A68G_EXT, "longlongsinpi", "qsinpi", m, genie_sinpi_mp);
  a68g_id2 (A68G_EXT, "longlongtandg", "qtandg", m, genie_tandg_mp);
  a68g_id2 (A68G_EXT, "longlongtanh", "qtanh", m, genie_tanh_mp);
  a68g_id2 (A68G_EXT, "longlongtanpi", "qtanpi", m, genie_tanpi_mp);
  a68g_id2 (A68G_STD, "longlongarccos", "qacos", m, genie_acos_mp);
  a68g_id2 (A68G_STD, "longlongarcsin", "qasin", m, genie_asin_mp);
  a68g_id2 (A68G_STD, "longlongarctan", "qatan", m, genie_atan_mp);
  a68g_id2 (A68G_STD, "longlongcos", "qcos", m, genie_cos_mp);
  a68g_id2 (A68G_STD, "longlongexp", "qexp", m, genie_exp_mp);
  a68g_id2 (A68G_STD, "longlongln", "qln", m, genie_ln_mp);
  a68g_id2 (A68G_STD, "longlonglog", "qlog", m, genie_log_mp);
  a68g_id2 (A68G_STD, "longlongsin", "qsin", m, genie_sin_mp);
  a68g_id2 (A68G_STD, "longlongsqrt", "qsqrt", m, genie_sqrt_mp);
  a68g_id2 (A68G_STD, "longlongtan", "qtan", m, genie_tan_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longlongarctan2dg", "qatan2dg", m, genie_atan2dg_mp);
  a68g_id2 (A68G_EXT, "longlongarctan2", "qatan2", m, genie_atan2_mp);
  a68g_id2 (A68G_EXT, "longlongbeta", "qbeta", m, genie_beta_mp);
  a68g_id2 (A68G_EXT, "longlonggammaincf", "qgammaincf", m, genie_gamma_inc_f_mp);
  a68g_id2 (A68G_EXT, "longlonggammaincgf", "qgammaincgf", m, genie_gamma_inc_gf_mp);
  a68g_id2 (A68G_EXT, "longlonggammainc", "qgammainc", m, genie_gamma_inc_h_mp);
  a68g_id2 (A68G_EXT, "longlonglnbeta", "qlnbeta", m, genie_lnbeta_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longlongbetainc", "qbetainc", m, genie_beta_inc_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longlonggammaincg", "qgammaincg", m, genie_gamma_inc_g_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_mp);
  a68g_op (A68G_STD, "-", m, genie_sub_mp);
  a68g_op (A68G_STD, "*", m, genie_mul_mp);
  a68g_op (A68G_STD, "/", m, genie_div_mp);
  a68g_op (A68G_STD, "**", m, genie_pow_mp);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp);
  a68g_op (A68G_STD, "^", m, genie_pow_mp);
  m = a68g_proc (M_REF_LONG_LONG_REAL, M_REF_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_mp);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_mp);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_mp);
  a68g_op (A68G_STD, "/:=", m, genie_divab_mp);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_mp);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_mp);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_mp);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_mp);
  m = a68g_proc (M_BOOL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_mp);
  a68g_op (A68G_STD, "EQ", m, genie_eq_mp);
  a68g_op (A68G_STD, "/=", m, genie_ne_mp);
  a68g_op (A68G_STD, "~=", m, genie_ne_mp);
  a68g_op (A68G_STD, "^=", m, genie_ne_mp);
  a68g_op (A68G_STD, "NE", m, genie_ne_mp);
  a68g_op (A68G_STD, "<", m, genie_lt_mp);
  a68g_op (A68G_STD, "LT", m, genie_lt_mp);
  a68g_op (A68G_STD, "<=", m, genie_le_mp);
  a68g_op (A68G_STD, "LE", m, genie_le_mp);
  a68g_op (A68G_STD, ">", m, genie_gt_mp);
  a68g_op (A68G_STD, "GT", m, genie_gt_mp);
  a68g_op (A68G_STD, ">=", m, genie_ge_mp);
  a68g_op (A68G_STD, "GE", m, genie_ge_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_mp_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp_int);
  a68g_op (A68G_STD, "^", m, genie_pow_mp_int);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_idle);
  a68g_op (A68G_STD, "+*", m, genie_idle);
// LONG LONG COMPLEX in software
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "RE", m, genie_re_mp_complex);
  a68g_op (A68G_STD, "IM", m, genie_im_mp_complex);
  a68g_op (A68G_STD, "ARG", m, genie_arg_mp_complex);
  a68g_op (A68G_STD, "ABS", m, genie_abs_mp_complex);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_mp_complex);
  a68g_op (A68G_STD, "CONJ", m, genie_conj_mp_complex);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_mp_complex);
  a68g_op (A68G_STD, "-", m, genie_sub_mp_complex);
  a68g_op (A68G_STD, "*", m, genie_mul_mp_complex);
  a68g_op (A68G_STD, "/", m, genie_div_mp_complex);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_mp_complex_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp_complex_int);
  a68g_op (A68G_STD, "^", m, genie_pow_mp_complex_int);
  m = a68g_proc (M_BOOL, M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_mp_complex);
  a68g_op (A68G_STD, "EQ", m, genie_eq_mp_complex);
  a68g_op (A68G_STD, "/=", m, genie_ne_mp_complex);
  a68g_op (A68G_STD, "~=", m, genie_ne_mp_complex);
  a68g_op (A68G_STD, "^=", m, genie_ne_mp_complex);
  a68g_op (A68G_STD, "NE", m, genie_ne_mp_complex);
  m = a68g_proc (M_REF_LONG_LONG_COMPLEX, M_REF_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_mp_complex);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_mp_complex);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_mp_complex);
  a68g_op (A68G_STD, "/:=", m, genie_divab_mp_complex);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_mp_complex);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_mp_complex);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_mp_complex);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_mp_complex);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_id2 (A68G_EXT, "longlongcomplexarccosh", "qcacosh", m, genie_acosh_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexarccos", "qcacos", m, genie_acos_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexarcsinh", "qcasinh", m, genie_asinh_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexarcsin", "qcasin", m, genie_asin_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexarctanh", "qcatanh", m, genie_atanh_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexarctan", "qcatan", m, genie_atan_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexcosh", "qccosh", m, genie_cosh_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexcos", "qccos", m, genie_cos_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexexp", "qcexp", m, genie_exp_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexln", "qcln", m, genie_ln_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexsinh", "qcsinh", m, genie_sinh_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexsin", "qcsin", m, genie_sin_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplexsqrt", "qcsqrt", m, genie_sqrt_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplextanh", "qctanh", m, genie_tanh_mp_complex);
  a68g_id2 (A68G_EXT, "longlongcomplextan", "qctan", m, genie_tan_mp_complex);
// BYTES ops.
  m = a68g_proc (M_BYTES, M_STRING, NO_MOID);
  a68g_idf (A68G_STD, "bytespack", m, genie_bytespack);
  m = a68g_proc (M_CHAR, M_INT, M_BYTES, NO_MOID);
  a68g_op (A68G_STD, "ELEM", m, genie_elem_bytes);
  m = a68g_proc (M_BYTES, M_BYTES, M_BYTES, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_bytes);
  m = a68g_proc (M_REF_BYTES, M_REF_BYTES, M_BYTES, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_bytes);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_bytes);
  m = a68g_proc (M_REF_BYTES, M_BYTES, M_REF_BYTES, NO_MOID);
  a68g_op (A68G_STD, "+=:", m, genie_plusto_bytes);
  a68g_op (A68G_STD, "PLUSTO", m, genie_plusto_bytes);
  m = a68g_proc (M_BOOL, M_BYTES, M_BYTES, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_bytes);
  a68g_op (A68G_STD, "/=", m, genie_ne_bytes);
  a68g_op (A68G_STD, "~=", m, genie_ne_bytes);
  a68g_op (A68G_STD, "^=", m, genie_ne_bytes);
  a68g_op (A68G_STD, "<", m, genie_lt_bytes);
  a68g_op (A68G_STD, "<=", m, genie_le_bytes);
  a68g_op (A68G_STD, ">", m, genie_gt_bytes);
  a68g_op (A68G_STD, ">=", m, genie_ge_bytes);
  a68g_op (A68G_STD, "EQ", m, genie_eq_bytes);
  a68g_op (A68G_STD, "NE", m, genie_ne_bytes);
  a68g_op (A68G_STD, "LT", m, genie_lt_bytes);
  a68g_op (A68G_STD, "LE", m, genie_le_bytes);
  a68g_op (A68G_STD, "GT", m, genie_gt_bytes);
  a68g_op (A68G_STD, "GE", m, genie_ge_bytes);
// LONG BYTES ops.
  m = a68g_proc (M_LONG_BYTES, M_BYTES, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_leng_bytes);
  m = a68g_proc (M_BYTES, M_LONG_BYTES, NO_MOID);
  a68g_idf (A68G_STD, "SHORTEN", m, genie_shorten_bytes);
  m = a68g_proc (M_LONG_BYTES, M_STRING, NO_MOID);
  a68g_idf (A68G_STD, "longbytespack", m, genie_long_bytespack);
  m = a68g_proc (M_CHAR, M_INT, M_LONG_BYTES, NO_MOID);
  a68g_op (A68G_STD, "ELEM", m, genie_elem_long_bytes);
  m = a68g_proc (M_LONG_BYTES, M_LONG_BYTES, M_LONG_BYTES, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_long_bytes);
  m = a68g_proc (M_REF_LONG_BYTES, M_REF_LONG_BYTES, M_LONG_BYTES, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_long_bytes);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_long_bytes);
  m = a68g_proc (M_REF_LONG_BYTES, M_LONG_BYTES, M_REF_LONG_BYTES, NO_MOID);
  a68g_op (A68G_STD, "+=:", m, genie_plusto_long_bytes);
  a68g_op (A68G_STD, "PLUSTO", m, genie_plusto_long_bytes);
  m = a68g_proc (M_BOOL, M_LONG_BYTES, M_LONG_BYTES, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_long_bytes);
  a68g_op (A68G_STD, "/=", m, genie_ne_long_bytes);
  a68g_op (A68G_STD, "~=", m, genie_ne_long_bytes);
  a68g_op (A68G_STD, "^=", m, genie_ne_long_bytes);
  a68g_op (A68G_STD, "<", m, genie_lt_long_bytes);
  a68g_op (A68G_STD, "<=", m, genie_le_long_bytes);
  a68g_op (A68G_STD, ">", m, genie_gt_long_bytes);
  a68g_op (A68G_STD, ">=", m, genie_ge_long_bytes);
  a68g_op (A68G_STD, "EQ", m, genie_eq_long_bytes);
  a68g_op (A68G_STD, "NE", m, genie_ne_long_bytes);
  a68g_op (A68G_STD, "LT", m, genie_lt_long_bytes);
  a68g_op (A68G_STD, "LE", m, genie_le_long_bytes);
  a68g_op (A68G_STD, "GT", m, genie_gt_long_bytes);
  a68g_op (A68G_STD, "GE", m, genie_ge_long_bytes);
// STRING ops.
  m = a68g_proc (M_BOOL, M_STRING, M_STRING, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_string);
  a68g_op (A68G_STD, "/=", m, genie_ne_string);
  a68g_op (A68G_STD, "~=", m, genie_ne_string);
  a68g_op (A68G_STD, "^=", m, genie_ne_string);
  a68g_op (A68G_STD, "<", m, genie_lt_string);
  a68g_op (A68G_STD, "<=", m, genie_le_string);
  a68g_op (A68G_STD, ">=", m, genie_ge_string);
  a68g_op (A68G_STD, ">", m, genie_gt_string);
  a68g_op (A68G_STD, "EQ", m, genie_eq_string);
  a68g_op (A68G_STD, "NE", m, genie_ne_string);
  a68g_op (A68G_STD, "LT", m, genie_lt_string);
  a68g_op (A68G_STD, "LE", m, genie_le_string);
  a68g_op (A68G_STD, "GE", m, genie_ge_string);
  a68g_op (A68G_STD, "GT", m, genie_gt_string);
  m = a68g_proc (M_STRING, M_CHAR, M_CHAR, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_char);
  m = a68g_proc (M_STRING, M_STRING, M_STRING, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_string);
  m = a68g_proc (M_REF_STRING, M_REF_STRING, M_STRING, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_string);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_string);
  m = a68g_proc (M_REF_STRING, M_REF_STRING, M_INT, NO_MOID);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_string);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_string);
  m = a68g_proc (M_REF_STRING, M_STRING, M_REF_STRING, NO_MOID);
  a68g_op (A68G_STD, "+=:", m, genie_plusto_string);
  a68g_op (A68G_STD, "PLUSTO", m, genie_plusto_string);
  m = a68g_proc (M_STRING, M_STRING, M_INT, NO_MOID);
  a68g_op (A68G_STD, "*", m, genie_times_string_int);
  m = a68g_proc (M_STRING, M_INT, M_STRING, NO_MOID);
  a68g_op (A68G_STD, "*", m, genie_times_int_string);
  m = a68g_proc (M_STRING, M_INT, M_CHAR, NO_MOID);
  a68g_op (A68G_STD, "*", m, genie_times_int_char);
  m = a68g_proc (M_STRING, M_CHAR, M_INT, NO_MOID);
  a68g_op (A68G_STD, "*", m, genie_times_char_int);
  m = a68g_proc (M_CHAR, M_INT, M_ROW_CHAR, NO_MOID);
  a68g_op (A68G_STD, "ELEM", m, genie_elem_string);
  m = a68g_proc (M_STRING, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "realpath", m, genie_realpath);
// SEMA ops.
#if defined (BUILD_PARALLEL_CLAUSE)
  m = a68g_proc (M_SEMA, M_INT, NO_MOID);
  a68g_op (A68G_STD, "LEVEL", m, genie_level_sema_int);
  m = a68g_proc (M_INT, M_SEMA, NO_MOID);
  a68g_op (A68G_STD, "LEVEL", m, genie_level_int_sema);
  m = a68g_proc (M_VOID, M_SEMA, NO_MOID);
  a68g_op (A68G_STD, "UP", m, genie_up_sema);
  a68g_op (A68G_STD, "DOWN", m, genie_down_sema);
#else
  m = a68g_proc (M_SEMA, M_INT, NO_MOID);
  a68g_op (A68G_STD, "LEVEL", m, genie_unimplemented);
  m = a68g_proc (M_INT, M_SEMA, NO_MOID);
  a68g_op (A68G_STD, "LEVEL", m, genie_unimplemented);
  m = a68g_proc (M_VOID, M_SEMA, NO_MOID);
  a68g_op (A68G_STD, "UP", m, genie_unimplemented);
  a68g_op (A68G_STD, "DOWN", m, genie_unimplemented);
#endif
// ROWS ops.
  m = a68g_proc (M_INT, M_ROWS, NO_MOID);
  a68g_op (A68G_EXT, "ELEMS", m, genie_monad_elems);
  a68g_op (A68G_STD, "LWB", m, genie_monad_lwb);
  a68g_op (A68G_STD, "UPB", m, genie_monad_upb);
  m = a68g_proc (M_INT, M_INT, M_ROWS, NO_MOID);
  a68g_op (A68G_EXT, "ELEMS", m, genie_dyad_elems);
  a68g_op (A68G_STD, "LWB", m, genie_dyad_lwb);
  a68g_op (A68G_STD, "UPB", m, genie_dyad_upb);
  m = a68g_proc (M_ROW_STRING, M_ROW_STRING, NO_MOID);
  a68g_op (A68G_EXT, "SORT", m, genie_sort_row_string);
// Some "terminators" to handle the mapping of very short or very long modes.
// This allows you to write SHORT REAL z = SHORTEN pi while everything is
// silently mapped onto REAL.
  m = a68g_proc (M_LONG_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_idle);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_idle);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_idle);
  m = a68g_proc (M_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_idle);
  m = a68g_proc (M_REAL, M_REAL, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_idle);
  m = a68g_proc (M_COMPLEX, M_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_idle);
  m = a68g_proc (M_BITS, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_idle);
// SOUND/RIFF procs.
  m = a68g_proc (M_SOUND, M_INT, M_INT, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "newsound", m, genie_new_sound);
  m = a68g_proc (M_INT, M_SOUND, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "getsound", m, genie_get_sound);
  m = a68g_proc (M_VOID, M_SOUND, M_INT, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "setsound", m, genie_set_sound);
  m = a68g_proc (M_INT, M_SOUND, NO_MOID);
  a68g_op (A68G_EXT, "RESOLUTION", m, genie_sound_resolution);
  a68g_op (A68G_EXT, "CHANNELS", m, genie_sound_channels);
  a68g_op (A68G_EXT, "RATE", m, genie_sound_rate);
  a68g_op (A68G_EXT, "SAMPLES", m, genie_sound_samples);
}

//! @brief Set up standenv - transput.

void stand_mp_level_2 (void)
{
#if (A68G_LEVEL <= 2)
  a68g_id2 (A68G_STD, "longpi", "dpi", M_LONG_REAL, genie_pi_mp);
  a68g_idf (A68G_STD, "longmaxbits", M_LONG_BITS, genie_long_max_bits);
  a68g_idf (A68G_STD, "longmaxint", M_LONG_INT, genie_long_max_int);
  a68g_idf (A68G_STD, "longsmallreal", M_LONG_REAL, genie_long_small_real);
  a68g_idf (A68G_STD, "longmaxreal", M_LONG_REAL, genie_long_max_real);
  a68g_idf (A68G_STD, "longminreal", M_LONG_REAL, genie_long_min_real);
  a68g_idf (A68G_STD, "longinfinity", M_LONG_REAL, genie_infinity_mp);
  a68g_idf (A68G_STD, "longminusinfinity", M_LONG_REAL, genie_minus_infinity_mp);
  a68g_idf (A68G_STD, "longinf", M_LONG_REAL, genie_infinity_mp);
  a68g_idf (A68G_STD, "longmininf", M_LONG_REAL, genie_minus_infinity_mp);
// LONG INT in software
  MOID_T *m = a68g_proc (M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_mp);
  a68g_op (A68G_STD, "ABS", m, genie_abs_mp);
  m = a68g_proc (M_LONG_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_int_to_mp);
  m = a68g_proc (M_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_mp_to_int);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_mp);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_mp_to_long_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_long_mp_to_mp);
  m = a68g_proc (M_LONG_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_mp_to_long_mp);
  m = a68g_proc (M_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_long_mp_to_mp);
  m = a68g_proc (M_BOOL, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "ODD", m, genie_odd_mp);
  m = a68g_proc (M_LONG_INT, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "ENTIER", m, genie_entier_mp);
  a68g_op (A68G_STD, "ROUND", m, genie_round_mp);
  m = a68g_proc (M_LONG_INT, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_mp_int);
  a68g_op (A68G_STD, "-", m, genie_sub_mp_int);
  a68g_op (A68G_STD, "*", m, genie_mul_mp_int);
  a68g_op (A68G_STD, "OVER", m, genie_over_mp);
  a68g_op (A68G_STD, "%", m, genie_over_mp);
  a68g_op (A68G_STD, "MOD", m, genie_mod_mp);
  a68g_op (A68G_STD, "%*", m, genie_mod_mp);
  m = a68g_proc (M_REF_LONG_INT, M_REF_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_mp_int);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_mp_int);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_mp_int);
  a68g_op (A68G_STD, "%:=", m, genie_overab_mp);
  a68g_op (A68G_STD, "%*:=", m, genie_modab_mp);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_mp_int);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_mp_int);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_mp_int);
  a68g_op (A68G_STD, "OVERAB", m, genie_overab_mp);
  a68g_op (A68G_STD, "MODAB", m, genie_modab_mp);
  m = a68g_proc (M_BOOL, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_mp);
  a68g_op (A68G_STD, "EQ", m, genie_eq_mp);
  a68g_op (A68G_STD, "/=", m, genie_ne_mp);
  a68g_op (A68G_STD, "~=", m, genie_ne_mp);
  a68g_op (A68G_STD, "^=", m, genie_ne_mp);
  a68g_op (A68G_STD, "NE", m, genie_ne_mp);
  a68g_op (A68G_STD, "<", m, genie_lt_mp);
  a68g_op (A68G_STD, "LT", m, genie_lt_mp);
  a68g_op (A68G_STD, "<=", m, genie_le_mp);
  a68g_op (A68G_STD, "LE", m, genie_le_mp);
  a68g_op (A68G_STD, ">", m, genie_gt_mp);
  a68g_op (A68G_STD, "GT", m, genie_gt_mp);
  a68g_op (A68G_STD, ">=", m, genie_ge_mp);
  a68g_op (A68G_STD, "GE", m, genie_ge_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "/", m, genie_div_mp);
  m = a68g_proc (M_LONG_INT, M_LONG_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_mp_int_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp_int_int);
  a68g_op (A68G_STD, "^", m, genie_pow_mp_int_int);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_idle);
  a68g_op (A68G_STD, "+*", m, genie_idle);
  m = a68g_proc (M_LONG_REAL, M_REAL, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_real_to_mp);
  m = a68g_proc (M_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_mp_to_real);
// LONG REAL in software
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_mp);
  a68g_op (A68G_STD, "ABS", m, genie_abs_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longarccosdg", "dacosdg", m, genie_acosdg_mp);
  a68g_id2 (A68G_EXT, "longarccosh", "dacosh", m, genie_acosh_mp);
  a68g_id2 (A68G_EXT, "longarccot", "dacot", m, genie_acot_mp);
  a68g_id2 (A68G_EXT, "longarccotdg", "dacotdg", m, genie_acosdg_mp);
  a68g_id2 (A68G_EXT, "longarccsc", "dacsc", m, genie_acsc_mp);
  a68g_id2 (A68G_EXT, "longarccscdg", "dacscdg", m, genie_acscdg_mp);
  a68g_id2 (A68G_EXT, "longarcsec", "dasec", m, genie_asec_mp);
  a68g_id2 (A68G_EXT, "longarcsecdg", "dasecdg", m, genie_asecdg_mp);
  a68g_id2 (A68G_EXT, "longarcsindg", "dasindg", m, genie_asindg_mp);
  a68g_id2 (A68G_EXT, "longarcsinh", "dasinh", m, genie_asinh_mp);
  a68g_id2 (A68G_EXT, "longarctandg", "datandg", m, genie_atandg_mp);
  a68g_id2 (A68G_EXT, "longarctanh", "datanh", m, genie_atanh_mp);
  a68g_id2 (A68G_EXT, "longcas", "dcas", m, genie_cas_mp);
  a68g_id2 (A68G_EXT, "longcbrt", "dcbrt", m, genie_curt_mp);
  a68g_id2 (A68G_EXT, "longcosdg", "dcosdg", m, genie_cosdg_mp);
  a68g_id2 (A68G_EXT, "longcosh", "dcosh", m, genie_cosh_mp);
  a68g_id2 (A68G_EXT, "longcospi", "dcospi", m, genie_cospi_mp);
  a68g_id2 (A68G_EXT, "longcot", "dcot", m, genie_cot_mp);
  a68g_id2 (A68G_EXT, "longcotdg", "dcotdg", m, genie_cotdg_mp);
  a68g_id2 (A68G_EXT, "longcotpi", "dcotpi", m, genie_cotpi_mp);
  a68g_id2 (A68G_EXT, "longcsc", "dcsc", m, genie_csc_mp);
  a68g_id2 (A68G_EXT, "longcscdg", "dcscdg", m, genie_cscdg_mp);
  a68g_id2 (A68G_EXT, "longcurt", "dcurt", m, genie_curt_mp);
  a68g_id2 (A68G_EXT, "longerfc", "derfc", m, genie_erfc_mp);
  a68g_id2 (A68G_EXT, "longerf", "derf", m, genie_erf_mp);
  a68g_id2 (A68G_EXT, "longgamma", "dgamma", m, genie_gamma_mp);
  a68g_id2 (A68G_EXT, "longinverfc", "dinverfc", m, genie_inverfc_mp);
  a68g_id2 (A68G_EXT, "longinverf", "dinverf", m, genie_inverf_mp);
  a68g_id2 (A68G_EXT, "longlngamma", "dlngamma", m, genie_lngamma_mp);
  a68g_id2 (A68G_EXT, "longsecdg", "dsecdg", m, genie_secdg_mp);
  a68g_id2 (A68G_EXT, "longsec", "dsec", m, genie_sec_mp);
  a68g_id2 (A68G_EXT, "longsindg", "dsindg", m, genie_sindg_mp);
  a68g_id2 (A68G_EXT, "longsinh", "dsinh", m, genie_sinh_mp);
  a68g_id2 (A68G_EXT, "longsinpi", "dsinpi", m, genie_sinpi_mp);
  a68g_id2 (A68G_EXT, "longtandg", "dtandg", m, genie_tandg_mp);
  a68g_id2 (A68G_EXT, "longtanh", "dtanh", m, genie_tanh_mp);
  a68g_id2 (A68G_EXT, "longtanpi", "dtanpi", m, genie_tanpi_mp);
// RR.
  a68g_id2 (A68G_STD, "longarccos", "dacos", m, genie_acos_mp);
  a68g_id2 (A68G_STD, "longarcsin", "dasin", m, genie_asin_mp);
  a68g_id2 (A68G_STD, "longarctan", "datan", m, genie_atan_mp);
  a68g_id2 (A68G_STD, "longcos", "dcos", m, genie_cos_mp);
  a68g_id2 (A68G_STD, "longexp", "dexp", m, genie_exp_mp);
  a68g_id2 (A68G_STD, "longln", "dln", m, genie_ln_mp);
  a68g_id2 (A68G_STD, "longlog", "dlog", m, genie_log_mp);
  a68g_id2 (A68G_STD, "longsin", "dsin", m, genie_sin_mp);
  a68g_id2 (A68G_STD, "longsqrt", "dsqrt", m, genie_sqrt_mp);
  a68g_id2 (A68G_STD, "longtan", "dtan", m,  genie_tan_mp);
  m = a68g_proc (M_LONG_REAL, NO_MOID);
  a68g_idf (A68G_STD, "longnextrandom", m, genie_long_next_random);
  a68g_idf (A68G_STD, "longrandom", m, genie_long_next_random);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longarctan2", "datan2", m, genie_atan2_mp);
  a68g_id2 (A68G_EXT, "longarctan2dg", "datan2dg", m, genie_atan2dg_mp);
  a68g_id2 (A68G_EXT, "longbeta", "dbeta", m, genie_beta_mp);
  a68g_id2 (A68G_EXT, "longgammainc", "dgammainc", m, genie_gamma_inc_h_mp);
  a68g_id2 (A68G_EXT, "longgammaincf", "dgammaincf", m, genie_gamma_inc_f_mp);
  a68g_id2 (A68G_EXT, "longgammaincgf", "dgammaincgf", m, genie_gamma_inc_gf_mp);
  a68g_id2 (A68G_EXT, "longlnbeta", "dlnbeta", m, genie_lnbeta_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longbetainc", "dbetainc", m, genie_beta_inc_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longgammaincg", "dgammaincg", m, genie_gamma_inc_g_mp);
  m = a68g_proc (M_INT, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_mp);
  a68g_op (A68G_STD, "-", m, genie_sub_mp);
  a68g_op (A68G_STD, "*", m, genie_mul_mp);
  a68g_op (A68G_STD, "/", m, genie_div_mp);
  a68g_op (A68G_STD, "**", m, genie_pow_mp);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp);
  a68g_op (A68G_STD, "^", m, genie_pow_mp);
  m = a68g_proc (M_REF_LONG_REAL, M_REF_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_mp);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_mp);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_mp);
  a68g_op (A68G_STD, "/:=", m, genie_divab_mp);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_mp);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_mp);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_mp);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_mp);
  m = a68g_proc (M_BOOL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_mp);
  a68g_op (A68G_STD, "EQ", m, genie_eq_mp);
  a68g_op (A68G_STD, "/=", m, genie_ne_mp);
  a68g_op (A68G_STD, "~=", m, genie_ne_mp);
  a68g_op (A68G_STD, "^=", m, genie_ne_mp);
  a68g_op (A68G_STD, "NE", m, genie_ne_mp);
  a68g_op (A68G_STD, "<", m, genie_lt_mp);
  a68g_op (A68G_STD, "LT", m, genie_lt_mp);
  a68g_op (A68G_STD, "<=", m, genie_le_mp);
  a68g_op (A68G_STD, "LE", m, genie_le_mp);
  a68g_op (A68G_STD, ">", m, genie_gt_mp);
  a68g_op (A68G_STD, "GT", m, genie_gt_mp);
  a68g_op (A68G_STD, ">=", m, genie_ge_mp);
  a68g_op (A68G_STD, "GE", m, genie_ge_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_mp_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp_int);
  a68g_op (A68G_STD, "^", m, genie_pow_mp_int);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_idle);
  a68g_op (A68G_STD, "+*", m, genie_idle);
// LONG COMPLEX in software
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_mp_complex_to_long_mp_complex);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_long_mp_complex_to_mp_complex);
  m = a68g_proc (M_LONG_COMPLEX, M_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_complex_to_mp_complex);
  m = a68g_proc (M_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_mp_complex_to_complex);
  m = a68g_proc (M_LONG_REAL, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "RE", m, genie_re_mp_complex);
  a68g_op (A68G_STD, "IM", m, genie_im_mp_complex);
  a68g_op (A68G_STD, "ARG", m, genie_arg_mp_complex);
  a68g_op (A68G_STD, "ABS", m, genie_abs_mp_complex);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_mp_complex);
  a68g_op (A68G_STD, "CONJ", m, genie_conj_mp_complex);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_mp_complex);
  a68g_op (A68G_STD, "-", m, genie_sub_mp_complex);
  a68g_op (A68G_STD, "*", m, genie_mul_mp_complex);
  a68g_op (A68G_STD, "/", m, genie_div_mp_complex);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_mp_complex_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_mp_complex_int);
  a68g_op (A68G_STD, "^", m, genie_pow_mp_complex_int);
  m = a68g_proc (M_BOOL, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_mp_complex);
  a68g_op (A68G_STD, "EQ", m, genie_eq_mp_complex);
  a68g_op (A68G_STD, "/=", m, genie_ne_mp_complex);
  a68g_op (A68G_STD, "~=", m, genie_ne_mp_complex);
  a68g_op (A68G_STD, "^=", m, genie_ne_mp_complex);
  a68g_op (A68G_STD, "NE", m, genie_ne_mp_complex);
  m = a68g_proc (M_REF_LONG_COMPLEX, M_REF_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_mp_complex);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_mp_complex);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_mp_complex);
  a68g_op (A68G_STD, "/:=", m, genie_divab_mp_complex);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_mp_complex);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_mp_complex);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_mp_complex);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_mp_complex);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_id2 (A68G_EXT, "longcomplexarccos", "dcacos", m, genie_acos_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexarccosh", "dcacosh", m, genie_acosh_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexarcsin", "dcasin", m, genie_asin_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexarcsinh", "dcasinh", m, genie_asinh_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexarctan", "dcatan", m, genie_atan_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexarctanh", "dcatanh", m, genie_atanh_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexcos", "dccos", m, genie_cos_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexcosh", "dccosh", m, genie_cosh_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexexp", "dcexp", m, genie_exp_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexln", "dcln", m, genie_ln_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexsin", "dcsin", m, genie_sin_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexsinh", "dcsin", m, genie_sinh_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplexsqrt", "dcsqrt", m, genie_sqrt_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplextan", "dctan", m, genie_tan_mp_complex);
  a68g_id2 (A68G_EXT, "longcomplextanh", "dctanh", m, genie_tanh_mp_complex);

// LONG BITS in software
  m = a68g_proc (M_LONG_BITS, M_ROW_BOOL, NO_MOID);
  a68g_idf (A68G_STD, "longbitspack", m, genie_long_bits_pack);
  m = a68g_proc (M_LONG_INT, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "ABS", m, genie_idle);
  m = a68g_proc (M_LONG_BITS, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "BIN", m, genie_bin_mp);
  m = a68g_proc (M_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_mp_to_bits);
  m = a68g_proc (M_LONG_BITS, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_unt_to_mp);
  m = a68g_proc (M_LONG_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "NOT", m, genie_not_mp);
  a68g_op (A68G_STD, "~", m, genie_not_mp);
  m = a68g_proc (M_BOOL, M_LONG_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_mp);
  a68g_op (A68G_STD, "EQ", m, genie_eq_mp);
  a68g_op (A68G_STD, "/=", m, genie_ne_mp);
  a68g_op (A68G_STD, "~=", m, genie_ne_mp);
  a68g_op (A68G_STD, "^=", m, genie_ne_mp);
  a68g_op (A68G_STD, "NE", m, genie_ne_mp);
  a68g_op (A68G_STD, "<=", m, genie_le_long_bits);
  a68g_op (A68G_STD, "LE", m, genie_le_long_bits);
  a68g_op (A68G_STD, ">=", m, genie_ge_long_bits);
  a68g_op (A68G_STD, "GE", m, genie_ge_long_bits);
  m = a68g_proc (M_LONG_BITS, M_LONG_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "AND", m, genie_and_mp);
  a68g_op (A68G_STD, "&", m, genie_and_mp);
  a68g_op (A68G_STD, "OR", m, genie_or_mp);
  a68g_op (A68G_EXT, "XOR", m, genie_xor_mp);
  m = a68g_proc (M_LONG_BITS, M_LONG_BITS, M_INT, NO_MOID);
  a68g_op (A68G_STD, "SHL", m, genie_shl_mp);
  a68g_op (A68G_STD, "UP", m, genie_shl_mp);
  a68g_op (A68G_STD, "SHR", m, genie_shr_mp);
  a68g_op (A68G_STD, "DOWN", m, genie_shr_mp);
  m = a68g_proc (M_BOOL, M_INT, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "ELEM", m, genie_elem_long_bits);
  m = a68g_proc (M_LONG_BITS, M_INT, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "SET", m, genie_set_long_bits);
  a68g_op (A68G_STD, "CLEAR", m, genie_clear_long_bits);
#endif
}

void stand_mp_level_3 (void)
{
#if (A68G_LEVEL >= 3)
  a68g_id2 (A68G_STD, "longpi", "dpi", M_LONG_REAL, genie_pi_double);
  a68g_idf (A68G_STD, "longmaxbits", M_LONG_BITS, genie_double_max_bits);
  a68g_idf (A68G_STD, "longmaxint", M_LONG_INT, genie_double_max_int);
  a68g_idf (A68G_STD, "longsmallreal", M_LONG_REAL, genie_double_small_real);
  a68g_idf (A68G_STD, "longmaxreal", M_LONG_REAL, genie_double_max_real);
  a68g_idf (A68G_STD, "longminreal", M_LONG_REAL, genie_double_min_real);
  a68g_idf (A68G_STD, "longinfinity", M_LONG_REAL, genie_infinity_double);
  a68g_idf (A68G_STD, "longminusinfinity", M_LONG_REAL, genie_minus_infinity_double);
  a68g_idf (A68G_STD, "longinf", M_LONG_REAL, genie_infinity_double);
  a68g_idf (A68G_STD, "longmininf", M_LONG_REAL, genie_minus_infinity_double);
// LONG INT as 128 bit
  MOID_T *m = a68g_proc (M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_double_int);
  a68g_op (A68G_STD, "ABS", m, genie_abs_double_int);
  m = a68g_proc (M_LONG_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_int_to_double_int);
  m = a68g_proc (M_LONG_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_double_int_to_mp);
  m = a68g_proc (M_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_long_int_to_int);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_double_int);
  m = a68g_proc (M_BOOL, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "ODD", m, genie_odd_double_int);
  m = a68g_proc (M_LONG_INT, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "ENTIER", m, genie_entier_double);
  a68g_op (A68G_STD, "ROUND", m, genie_round_double);
  m = a68g_proc (M_LONG_INT, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_double_int);
  a68g_op (A68G_STD, "-", m, genie_sub_double_int);
  a68g_op (A68G_STD, "*", m, genie_mul_double_int);
  a68g_op (A68G_STD, "OVER", m, genie_over_double_int);
  a68g_op (A68G_STD, "%", m, genie_over_double_int);
  a68g_op (A68G_STD, "MOD", m, genie_mod_double_int);
  a68g_op (A68G_STD, "%*", m, genie_mod_double_int);
  m = a68g_proc (M_LONG_INT, M_LONG_INT, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_double_int_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_double_int_int);
  a68g_op (A68G_STD, "^", m, genie_pow_double_int_int);
  m = a68g_proc (M_REF_LONG_INT, M_REF_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_double_int);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_double_int);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_double_int);
  a68g_op (A68G_STD, "%:=", m, genie_overab_double_int);
  a68g_op (A68G_STD, "%*:=", m, genie_modab_double_int);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_double_int);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_double_int);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_double_int);
  a68g_op (A68G_STD, "OVERAB", m, genie_overab_double_int);
  a68g_op (A68G_STD, "MODAB", m, genie_modab_double_int);
  m = a68g_proc (M_LONG_REAL, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "/", m, genie_div_double_int);
  m = a68g_proc (M_BOOL, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_double_int);
  a68g_op (A68G_STD, "EQ", m, genie_eq_double_int);
  a68g_op (A68G_STD, "/=", m, genie_ne_double_int);
  a68g_op (A68G_STD, "~=", m, genie_ne_double_int);
  a68g_op (A68G_STD, "^=", m, genie_ne_double_int);
  a68g_op (A68G_STD, "NE", m, genie_ne_double_int);
  a68g_op (A68G_STD, "<", m, genie_lt_double_int);
  a68g_op (A68G_STD, "LT", m, genie_lt_double_int);
  a68g_op (A68G_STD, "<=", m, genie_le_double_int);
  a68g_op (A68G_STD, "LE", m, genie_le_double_int);
  a68g_op (A68G_STD, ">", m, genie_gt_double_int);
  a68g_op (A68G_STD, "GT", m, genie_gt_double_int);
  a68g_op (A68G_STD, ">=", m, genie_ge_double_int);
  a68g_op (A68G_STD, "GE", m, genie_ge_double_int);
// LONG REAL as 128 bit
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_double);
  a68g_op (A68G_STD, "ABS", m, genie_abs_double);
  m = a68g_proc (M_INT, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "SIGN", m, genie_sign_double);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_double);
  a68g_op (A68G_STD, "-", m, genie_sub_double);
  a68g_op (A68G_STD, "*", m, genie_mul_double);
  a68g_op (A68G_STD, "/", m, genie_over_double);
  a68g_op (A68G_STD, "**", m, genie_pow_double);
  a68g_op (A68G_STD, "UP", m, genie_pow_double);
  a68g_op (A68G_STD, "^", m, genie_pow_double);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_double_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_double_int);
  a68g_op (A68G_STD, "^", m, genie_pow_double_int);
  m = a68g_proc (M_LONG_REAL, M_REAL, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_real_to_double);
  m = a68g_proc (M_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_double_to_real);
  m = a68g_proc (M_LONG_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_double_to_mp);
  m = a68g_proc (M_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_mp_to_double);
  m = a68g_proc (M_LONG_INT, M_LONG_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_mp_to_double_int);
  m = a68g_proc (M_REF_LONG_REAL, M_REF_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_double);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_double);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_double);
  a68g_op (A68G_STD, "/:=", m, genie_divab_double);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_double);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_double);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_double);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_double);
  m = a68g_proc (M_BOOL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_double);
  a68g_op (A68G_STD, "EQ", m, genie_eq_double);
  a68g_op (A68G_STD, "/=", m, genie_ne_double);
  a68g_op (A68G_STD, "~=", m, genie_ne_double);
  a68g_op (A68G_STD, "^=", m, genie_ne_double);
  a68g_op (A68G_STD, "NE", m, genie_ne_double);
  a68g_op (A68G_STD, "<", m, genie_lt_double);
  a68g_op (A68G_STD, "LT", m, genie_lt_double);
  a68g_op (A68G_STD, "<=", m, genie_le_double);
  a68g_op (A68G_STD, "LE", m, genie_le_double);
  a68g_op (A68G_STD, ">", m, genie_gt_double);
  a68g_op (A68G_STD, "GT", m, genie_gt_double);
  a68g_op (A68G_STD, ">=", m, genie_ge_double);
  a68g_op (A68G_STD, "GE", m, genie_ge_double);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longarccosdg", "dacosdg", m, genie_acosdg_double);
  a68g_id2 (A68G_EXT, "longarccosh", "dacosh", m, genie_acosh_double);
  a68g_id2 (A68G_EXT, "longarccotdg", "dacotdg", m, genie_acotdg_double);
  a68g_id2 (A68G_EXT, "longarccot", "dacot", m, genie_acot_double);
  a68g_id2 (A68G_EXT, "longarccsc", "dacsc", m, genie_acsc_double);
  a68g_id2 (A68G_EXT, "longarccscdg", "dacscdg", m, genie_acscdg_double);
  a68g_id2 (A68G_EXT, "longarcsecdg", "dasecdg", m, genie_asecdg_double);
  a68g_id2 (A68G_EXT, "longarcsindg", "dasindg", m, genie_asindg_double);
  a68g_id2 (A68G_EXT, "longarcsinh", "dasinh", m, genie_asinh_double);
  a68g_id2 (A68G_EXT, "longarctandg", "datandg", m, genie_atandg_double);
  a68g_id2 (A68G_EXT, "longarctanh", "datanh", m, genie_atanh_double);
  a68g_id2 (A68G_EXT, "longcbrt", "dcbrt", m, genie_curt_double);
  a68g_id2 (A68G_EXT, "longcosdg", "dcosdg", m, genie_cosdg_double);
  a68g_id2 (A68G_EXT, "longcosh", "dcosh", m, genie_cosh_double);
  a68g_id2 (A68G_EXT, "longcospi", "dcospi", m, genie_cospi_double);
  a68g_id2 (A68G_EXT, "longcotdg", "dcotdg", m, genie_cotdg_double);
  a68g_id2 (A68G_EXT, "longcot", "dcot", m, genie_cot_double);
  a68g_id2 (A68G_EXT, "longcotpi", "dcotpi", m, genie_cotpi_double);
  a68g_id2 (A68G_EXT, "longcsc", "dcsc", m, genie_csc_double);
  a68g_id2 (A68G_EXT, "longcscdg", "dcscdg", m, genie_cscdg_double);
  a68g_id2 (A68G_EXT, "longcurt", "dcurt", m, genie_curt_double);
  a68g_id2 (A68G_EXT, "longerfc", "derfc", m, genie_erfc_double);
  a68g_id2 (A68G_EXT, "longerf", "derf", m, genie_erf_double);
  a68g_id2 (A68G_EXT, "longinverfc", "dinverfc", m, genie_inverfc_double);
  a68g_id2 (A68G_EXT, "longinverf", "dinverf", m, genie_inverf_double);
  a68g_id2 (A68G_EXT, "longgamma", "dgamma", m, genie_gamma_double);
  a68g_id2 (A68G_EXT, "longlngamma", "dlngamma", m, genie_lngamma_double);
  a68g_id2 (A68G_EXT, "longsec", "dsec", m, genie_sec_double);
  a68g_id2 (A68G_EXT, "longsecdg", "dsecdg", m, genie_secdg_double);
  a68g_id2 (A68G_EXT, "longsindg", "dsindg", m, genie_sindg_double);
  a68g_id2 (A68G_EXT, "longsinh", "dsinh", m, genie_sinh_double);
  a68g_id2 (A68G_EXT, "longsinpi", "dsinpi", m, genie_sinpi_double);
  a68g_id2 (A68G_EXT, "longtandg", "dtandg", m, genie_tandg_double);
  a68g_id2 (A68G_EXT, "longtanh", "dtanh", m, genie_tanh_double);
  a68g_id2 (A68G_EXT, "longtanpi", "dtanpi", m, genie_tanpi_double);
  a68g_id2 (A68G_STD, "longarccos", "dacos", m, genie_acos_double);
  a68g_id2 (A68G_STD, "longarcsin", "dasin", m, genie_asin_double);
  a68g_id2 (A68G_STD, "longarctan", "datan", m, genie_atan_double);
  a68g_id2 (A68G_EXT, "longcas", "dcas", m, genie_cas_double);
  a68g_id2 (A68G_STD, "longcos", "dcos", m, genie_cos_double);
  a68g_id2 (A68G_STD, "longexp", "dexp", m, genie_exp_double);
  a68g_id2 (A68G_STD, "longln", "dln", m, genie_ln_double);
  a68g_id2 (A68G_STD, "longlog", "dlog", m, genie_log_double);
  a68g_id2 (A68G_STD, "longsin", "dsin", m, genie_sin_double);
  a68g_id2 (A68G_STD, "longsqrt", "dsqrt", m, genie_sqrt_double);
  a68g_id2 (A68G_STD, "longtan", "dtan", m, genie_tan_double);
  m = a68g_proc (M_LONG_REAL, NO_MOID);
  a68g_idf (A68G_STD, "longnextrandom", m, genie_next_random_double);
  a68g_idf (A68G_STD, "longrandom", m, genie_next_random_double);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longarctan2dg", "datan2dg", m, genie_atan2dg_double);
  a68g_id2 (A68G_EXT, "longarctan2", "datan2", m, genie_atan2_double);
  a68g_id2 (A68G_EXT, "longbeta", "dbeta", m, genie_beta_double);
  a68g_id2 (A68G_EXT, "longgammaincgf", "dgammaincgf", m, genie_gamma_inc_gf_double);
  a68g_id2 (A68G_EXT, "longgammaincf", "dgammaincf", m, genie_gamma_inc_f_double);
  a68g_id2 (A68G_EXT, "longgammainc", "dgammainc", m, genie_gamma_inc_h_double);
  a68g_id2 (A68G_EXT, "longlnbeta", "dlnbeta", m, genie_ln_beta_double);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longbetainc", "dbetainc", m, genie_beta_inc_cf_double);
  m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_id2 (A68G_EXT, "longgammaincg", "dgammaincg", m, genie_gamma_inc_g_double);
// LONG BITS as 128 bit
  m = a68g_proc (M_LONG_BITS, M_ROW_BOOL, NO_MOID);
  a68g_idf (A68G_STD, "longbitspack", m, genie_double_bits_pack);
  m = a68g_proc (M_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_double_bits_to_bits);
  m = a68g_proc (M_LONG_BITS, M_BITS, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_bits_to_double_bits);
  m = a68g_proc (M_LONG_INT, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "ABS", m, genie_idle);
  m = a68g_proc (M_LONG_BITS, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "BIN", m, genie_bin_double_int);
  m = a68g_proc (M_LONG_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "NOT", m, genie_not_double_bits);
  a68g_op (A68G_STD, "~", m, genie_not_double_bits);
  m = a68g_proc (M_LONG_BITS, M_LONG_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "AND", m, genie_and_double_bits);
  a68g_op (A68G_STD, "&", m, genie_and_double_bits);
  a68g_op (A68G_STD, "OR", m, genie_or_double_bits);
  a68g_op (A68G_EXT, "XOR", m, genie_xor_double_bits);
  a68g_op (A68G_EXT, "+", m, genie_add_double_bits);
  a68g_op (A68G_EXT, "-", m, genie_sub_double_bits);
  a68g_op (A68G_EXT, "*", m, genie_times_double_bits);
  a68g_op (A68G_EXT, "OVER", m, genie_over_double_bits);
  a68g_op (A68G_EXT, "MOD", m, genie_over_double_bits);
  m = a68g_proc (M_BOOL, M_LONG_BITS, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_double_bits);
  a68g_op (A68G_STD, "/=", m, genie_ne_double_bits);
  a68g_op (A68G_STD, "~=", m, genie_ne_double_bits);
  a68g_op (A68G_STD, "^=", m, genie_ne_double_bits);
  a68g_op (A68G_STD, "<=", m, genie_le_double_bits);
  a68g_op (A68G_STD, ">=", m, genie_ge_double_bits);
  a68g_op (A68G_STD, "EQ", m, genie_eq_double_bits);
  a68g_op (A68G_STD, "NE", m, genie_ne_double_bits);
  a68g_op (A68G_STD, "LE", m, genie_le_double_bits);
  a68g_op (A68G_STD, "GE", m, genie_ge_double_bits);
  a68g_op (A68G_EXT, "<", m, genie_lt_double_bits);
  a68g_op (A68G_EXT, ">", m, genie_gt_double_bits);
  a68g_op (A68G_EXT, "LT", m, genie_lt_double_bits);
  a68g_op (A68G_EXT, "GT", m, genie_gt_double_bits);
  m = a68g_proc (M_BOOL, M_INT, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "ELEM", m, genie_elem_double_bits);
  m = a68g_proc (M_LONG_BITS, M_INT, M_LONG_BITS, NO_MOID);
  a68g_op (A68G_STD, "SET", m, genie_set_double_bits);
  a68g_op (A68G_STD, "CLEAR", m, genie_clear_double_bits);
  m = a68g_proc (M_LONG_BITS, M_LONG_BITS, M_INT, NO_MOID);
  a68g_op (A68G_STD, "SHL", m, genie_shl_double_bits);
  a68g_op (A68G_STD, "UP", m, genie_shl_double_bits);
  a68g_op (A68G_STD, "SHR", m, genie_shr_double_bits);
  a68g_op (A68G_STD, "DOWN", m, genie_shr_double_bits);
  a68g_op (A68G_EXT, "ROL", m, genie_rol_double_bits);
  a68g_op (A68G_EXT, "ROR", m, genie_ror_double_bits);
// LONG COMPLEX as 2 x 128 bit.
  m = a68g_proc (M_LONG_COMPLEX, M_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_complex_to_double_compl);
  m = a68g_proc (M_LONG_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "LENG", m, genie_lengthen_double_compl_to_long_mp_complex);
  m = a68g_proc (M_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_double_compl_to_complex);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "SHORTEN", m, genie_shorten_long_mp_complex_to_double_compl);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_REAL, M_LONG_REAL, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_i_double_compl);
  a68g_op (A68G_STD, "+*", m, genie_i_double_compl);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_INT, M_LONG_INT, NO_MOID);
  a68g_op (A68G_STD, "I", m, genie_i_int_double_compl);
  a68g_op (A68G_STD, "+*", m, genie_i_int_double_compl);
  m = a68g_proc (M_LONG_REAL, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "RE", m, genie_re_double_compl);
  a68g_op (A68G_STD, "IM", m, genie_im_double_compl);
  a68g_op (A68G_STD, "ABS", m, genie_abs_double_compl);
  a68g_op (A68G_STD, "ARG", m, genie_arg_double_compl);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_idle);
  a68g_op (A68G_STD, "-", m, genie_minus_double_compl);
  a68g_op (A68G_STD, "CONJ", m, genie_conj_double_compl);
  m = a68g_proc (M_BOOL, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "=", m, genie_eq_double_compl);
  a68g_op (A68G_STD, "/=", m, genie_ne_double_compl);
  a68g_op (A68G_STD, "~=", m, genie_ne_double_compl);
  a68g_op (A68G_STD, "^=", m, genie_ne_double_compl);
  a68g_op (A68G_STD, "EQ", m, genie_eq_double_compl);
  a68g_op (A68G_STD, "NE", m, genie_ne_double_compl);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+", m, genie_add_double_compl);
  a68g_op (A68G_STD, "-", m, genie_sub_double_compl);
  a68g_op (A68G_STD, "*", m, genie_mul_double_compl);
  a68g_op (A68G_STD, "/", m, genie_div_double_compl);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, M_INT, NO_MOID);
  a68g_op (A68G_STD, "**", m, genie_pow_double_compl_int);
  a68g_op (A68G_STD, "UP", m, genie_pow_double_compl_int);
  a68g_op (A68G_STD, "^", m, genie_pow_double_compl_int);
  m = a68g_proc (M_REF_LONG_COMPLEX, M_REF_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_op (A68G_STD, "+:=", m, genie_plusab_double_compl);
  a68g_op (A68G_STD, "-:=", m, genie_minusab_double_compl);
  a68g_op (A68G_STD, "*:=", m, genie_timesab_double_compl);
  a68g_op (A68G_STD, "/:=", m, genie_divab_double_compl);
  a68g_op (A68G_STD, "PLUSAB", m, genie_plusab_double_compl);
  a68g_op (A68G_STD, "MINUSAB", m, genie_minusab_double_compl);
  a68g_op (A68G_STD, "TIMESAB", m, genie_timesab_double_compl);
  a68g_op (A68G_STD, "DIVAB", m, genie_divab_double_compl);
  m = a68g_proc (M_LONG_COMPLEX, M_LONG_COMPLEX, NO_MOID);
  a68g_id2 (A68G_EXT, "longcomplexarccosh", "dcacosh", m, genie_acosh_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexarccos", "dcacos", m, genie_acos_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexarcsinh", "dcasinh", m, genie_asinh_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexarcsin", "dcasin", m, genie_asin_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexarctanh", "dcatanh", m, genie_atanh_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexarctan", "dcatan", m, genie_atan_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexatanh", "dcatanh", m, genie_atanh_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexcosh", "dccosh", m, genie_cosh_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexcos", "dccos", m, genie_cos_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexexp", "dcexp", m, genie_exp_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexln", "dcln", m, genie_ln_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexsinh", "dcsinh", m, genie_sinh_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexsin", "dcsin", m, genie_sin_double_compl);
  a68g_id2 (A68G_EXT, "longcomplexsqrt", "dcsqrt", m, genie_sqrt_double_compl);
  a68g_id2 (A68G_EXT, "longcomplextanh", "dctanh", m, genie_tanh_double_compl);
  a68g_id2 (A68G_EXT, "longcomplextan", "dctan", m, genie_tan_double_compl);

#endif
}

void stand_mpfr (void)
{
  #if defined (HAVE_GNU_MPFR)
    MOID_T *m = a68g_proc (M_LONG_REAL, M_LONG_REAL, M_LONG_REAL, NO_MOID);
    a68g_id2 (A68G_EXT, "mpfrlonggammainc", "mpfrdgammainc", m, genie_gamma_inc_double_mpfr);
    m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
    a68g_id2 (A68G_STD, "mpfrlonglongbeta", "mpfrqbeta", m, genie_beta_mpfr);
    a68g_id2 (A68G_STD, "mpfrlonglonggammainc", "mpfrqgammainc", m, genie_gamma_inc_mpfr);
    a68g_id2 (A68G_STD, "mpfrlonglonglnbeta", "mpfrqlnbeta", m, genie_ln_beta_mpfr);
    m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
    a68g_id2 (A68G_STD, "mpfrlonglongbetainc", "mpfrqbetainc", m, genie_beta_inc_mpfr);
    m = a68g_proc (M_LONG_LONG_REAL, M_LONG_LONG_REAL, NO_MOID);
    a68g_id2 (A68G_EXT, "mpfrlonglongerfc", "mpfrqerfc", m, genie_mpfr_erfc_mp);
    a68g_id2 (A68G_EXT, "mpfrlonglongerf", "mpfrqerf", m, genie_mpfr_erf_mp);
    a68g_id2 (A68G_EXT, "mpfrlonglonggamma", "mpfrqgamma", m, genie_gamma_mpfr);
    a68g_id2 (A68G_EXT, "mpfrlonglonginverfc", "mpfrqinverfc", m, genie_mpfr_inverfc_mp);
    a68g_id2 (A68G_EXT, "mpfrlonglonginverf", "mpfrqinverf", m, genie_mpfr_inverf_mp);
    a68g_id2 (A68G_EXT, "mpfrlonglonglngamma", "mpfrqlngamma", m, genie_lngamma_mpfr);
    a68g_idf (A68G_EXT, "mpfrmp", m, genie_mpfr_mp);
  #endif
}

void stand_transput (void)
{
  a68g_idf (A68G_EXT, "blankcharacter", M_CHAR, genie_blank_char);
  a68g_idf (A68G_EXT, "formfeedcharacter", M_CHAR, genie_formfeed_char);
  a68g_idf (A68G_EXT, "formfeedchar", M_CHAR, genie_formfeed_char);
  a68g_idf (A68G_EXT, "newlinecharacter", M_CHAR, genie_newline_char);
  a68g_idf (A68G_EXT, "newlinechar", M_CHAR, genie_newline_char);
  a68g_idf (A68G_EXT, "nullcharacter", M_CHAR, genie_null_char);
  a68g_idf (A68G_EXT, "tabcharacter", M_CHAR, genie_tab_char);
  a68g_idf (A68G_EXT, "tabchar", M_CHAR, genie_tab_char);
  a68g_idf (A68G_STD, "blankchar", M_CHAR, genie_blank_char);
  a68g_idf (A68G_STD, "blank", M_CHAR, genie_blank_char);
  a68g_idf (A68G_STD, "errorchar", M_CHAR, genie_error_char);
  a68g_idf (A68G_STD, "expchar", M_CHAR, genie_exp_char);
  a68g_idf (A68G_STD, "flip", M_CHAR, genie_flip_char);
  a68g_idf (A68G_STD, "flop", M_CHAR, genie_flop_char);
  a68g_idf (A68G_STD, "nullchar", M_CHAR, genie_null_char);
  MOID_T *m = a68g_proc (M_STRING, M_HEX_NUMBER, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_STD, "bits", m, genie_bits);
  m = a68g_proc (M_STRING, M_NUMBER, M_INT, NO_MOID);
  a68g_idf (A68G_STD, "whole", m, genie_whole);
  m = a68g_proc (M_STRING, M_NUMBER, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_STD, "fixed", m, genie_fixed);
  m = a68g_proc (M_STRING, M_NUMBER, M_INT, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_STD, "float", m, genie_float);
  m = a68g_proc (M_STRING, M_NUMBER, M_INT, M_INT, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_STD, "real", m, genie_real);
  a68g_idf (A68G_STD, "standin", M_REF_FILE, genie_stand_in);
  a68g_idf (A68G_STD, "standout", M_REF_FILE, genie_stand_out);
  a68g_idf (A68G_STD, "standback", M_REF_FILE, genie_stand_back);
  a68g_idf (A68G_EXT, "standerror", M_REF_FILE, genie_stand_error);
  a68g_idf (A68G_STD, "standinchannel", M_CHANNEL, genie_stand_in_channel);
  a68g_idf (A68G_STD, "standoutchannel", M_CHANNEL, genie_stand_out_channel);
  a68g_idf (A68G_EXT, "standdrawchannel", M_CHANNEL, genie_stand_draw_channel);
  a68g_idf (A68G_STD, "standbackchannel", M_CHANNEL, genie_stand_back_channel);
  a68g_idf (A68G_EXT, "standerrorchannel", M_CHANNEL, genie_stand_error_channel);
  m = a68g_proc (M_VOID, M_REF_FILE, M_STRING, NO_MOID);
  a68g_idf (A68G_STD, "maketerm", m, genie_make_term);
  m = a68g_proc (M_BOOL, M_CHAR, M_REF_INT, M_STRING, NO_MOID);
  a68g_idf (A68G_STD, "charinstring", m, genie_char_in_string);
  a68g_idf (A68G_EXT, "lastcharinstring", m, genie_last_char_in_string);
  m = a68g_proc (M_BOOL, M_STRING, M_REF_INT, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "stringinstring", m, genie_string_in_string);
  m = a68g_proc (M_STRING, M_REF_FILE, NO_MOID);
  a68g_idf (A68G_EXT, "idf", m, genie_idf);
  a68g_idf (A68G_EXT, "term", m, genie_term);
  m = a68g_proc (M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "programidf", m, genie_program_idf);
// Event routines.
  m = a68g_proc (M_VOID, M_REF_FILE, M_PROC_REF_FILE_BOOL, NO_MOID);
  a68g_idf (A68G_STD, "onfileend", m, genie_on_file_end);
  a68g_idf (A68G_STD, "onpageend", m, genie_on_page_end);
  a68g_idf (A68G_STD, "onlineend", m, genie_on_line_end);
  a68g_idf (A68G_STD, "onlogicalfileend", m, genie_on_file_end);
  a68g_idf (A68G_STD, "onphysicalfileend", m, genie_on_file_end);
  a68g_idf (A68G_STD, "onformatend", m, genie_on_format_end);
  a68g_idf (A68G_STD, "onformaterror", m, genie_on_format_error);
  a68g_idf (A68G_STD, "onvalueerror", m, genie_on_value_error);
  a68g_idf (A68G_STD, "onopenerror", m, genie_on_open_error);
  a68g_idf (A68G_EXT, "ontransputerror", m, genie_on_transput_error);
// Enquiries on files.
  a68g_idf (A68G_EXT, "drawpossible", M_PROC_REF_FILE_BOOL, genie_draw_possible);
  a68g_idf (A68G_EXT, "endoffile", M_PROC_REF_FILE_BOOL, genie_eof);
  a68g_idf (A68G_EXT, "endofline", M_PROC_REF_FILE_BOOL, genie_eoln);
  a68g_idf (A68G_EXT, "eof", M_PROC_REF_FILE_BOOL, genie_eof);
  a68g_idf (A68G_EXT, "eoln", M_PROC_REF_FILE_BOOL, genie_eoln);
  a68g_idf (A68G_EXT, "rewindpossible", M_PROC_REF_FILE_BOOL, genie_reset_possible);
  a68g_idf (A68G_STD, "binpossible", M_PROC_REF_FILE_BOOL, genie_bin_possible);
  a68g_idf (A68G_STD, "compressible", M_PROC_REF_FILE_BOOL, genie_compressible);
  a68g_idf (A68G_STD, "getpossible", M_PROC_REF_FILE_BOOL, genie_get_possible);
  a68g_idf (A68G_STD, "putpossible", M_PROC_REF_FILE_BOOL, genie_put_possible);
  a68g_idf (A68G_STD, "reidfpossible", M_PROC_REF_FILE_BOOL, genie_reidf_possible);
  a68g_idf (A68G_STD, "resetpossible", M_PROC_REF_FILE_BOOL, genie_reset_possible);
  a68g_idf (A68G_STD, "setpossible", M_PROC_REF_FILE_BOOL, genie_set_possible);
// Handling of files.
  m = a68g_proc (M_INT, M_REF_FILE, M_STRING, M_CHANNEL, NO_MOID);
  a68g_idf (A68G_STD, "open", m, genie_open);
  a68g_idf (A68G_STD, "append", m, genie_append);
  a68g_idf (A68G_STD, "establish", m, genie_establish);
  m = a68g_proc (M_VOID, M_REF_FILE, M_REF_STRING, NO_MOID);
  a68g_idf (A68G_STD, "associate", m, genie_associate);
  m = a68g_proc (M_INT, M_REF_FILE, M_CHANNEL, NO_MOID);
  a68g_idf (A68G_EXT, "cooked", M_PROC_REF_FILE_VOID, genie_kbd_cooked);
  a68g_idf (A68G_EXT, "raw", M_PROC_REF_FILE_VOID, genie_kbd_raw);
  a68g_idf (A68G_EXT, "rewind", M_PROC_REF_FILE_VOID, genie_reset);
  a68g_idf (A68G_STD, "backspace", M_PROC_REF_FILE_VOID, genie_backspace);
  a68g_idf (A68G_STD, "close", M_PROC_REF_FILE_VOID, genie_close);
  a68g_idf (A68G_STD, "create", m, genie_create);
  a68g_idf (A68G_STD, "erase", M_PROC_REF_FILE_VOID, genie_erase);
  a68g_idf (A68G_STD, "lock", M_PROC_REF_FILE_VOID, genie_lock);
  a68g_idf (A68G_STD, "newline", M_PROC_REF_FILE_VOID, genie_new_line);
  a68g_idf (A68G_STD, "newpage", M_PROC_REF_FILE_VOID, genie_new_page);
  a68g_idf (A68G_STD, "reset", M_PROC_REF_FILE_VOID, genie_reset);
  a68g_idf (A68G_STD, "scratch", M_PROC_REF_FILE_VOID, genie_erase);
  a68g_idf (A68G_STD, "space", M_PROC_REF_FILE_VOID, genie_space);
  m = a68g_proc (M_INT, M_REF_FILE, M_INT, NO_MOID);
  a68g_idf (A68G_STD, "set", m, genie_set);
  a68g_idf (A68G_STD, "seek", m, genie_set);
  m = a68g_proc (M_VOID, M_ROW_SIMPLIN, NO_MOID);
  a68g_idf (A68G_STD, "read", m, genie_read);
  a68g_idf (A68G_STD, "readbin", m, genie_read_bin);
  a68g_idf (A68G_STD, "readf", m, genie_read_format);
  m = a68g_proc (M_VOID, M_ROW_SIMPLOUT, NO_MOID);
  a68g_idf (A68G_STD, "printbin", m, genie_write_bin);
  a68g_idf (A68G_STD, "printf", m, genie_write_format);
  a68g_idf (A68G_STD, "print", m, genie_write);
  a68g_idf (A68G_STD, "writebin", m, genie_write_bin);
  a68g_idf (A68G_STD, "writef", m, genie_write_format);
  a68g_idf (A68G_STD, "write", m, genie_write);
  m = a68g_proc (M_VOID, M_REF_FILE, M_ROW_SIMPLIN, NO_MOID);
  a68g_idf (A68G_STD, "get", m, genie_read_file);
  a68g_idf (A68G_STD, "getf", m, genie_read_file_format);
  a68g_idf (A68G_STD, "getbin", m, genie_read_bin_file);
  m = a68g_proc (M_VOID, M_REF_FILE, M_ROW_SIMPLOUT, NO_MOID);
  a68g_idf (A68G_STD, "put", m, genie_write_file);
  a68g_idf (A68G_STD, "putf", m, genie_write_file_format);
  a68g_idf (A68G_STD, "putbin", m, genie_write_bin_file);
  m = a68g_proc (M_VOID, M_REF_STRING, M_ROW_SIMPLIN, NO_MOID);
  a68g_idf (A68G_EXT, "gets", m, genie_get_text);
  a68g_idf (A68G_EXT, "getsf", m, genie_getf_text);
  m = a68g_proc (M_VOID, M_REF_STRING, M_ROW_SIMPLOUT, NO_MOID);
  a68g_idf (A68G_EXT, "puts", m, genie_put_text);
  a68g_idf (A68G_EXT, "putsf", m, genie_putf_text);
  m = a68g_proc (M_REF_STRING, M_REF_STRING, M_ROW_SIMPLOUT, NO_MOID);
  a68g_idf (A68G_EXT, "string", m, genie_string);
  a68g_idf (A68G_EXT, "stringf", m, genie_stringf);
  A68C_DEFIO (bits, bits, BITS);
  A68C_DEFIO (bool, bool, BOOL);
  A68C_DEFIO (char, char, CHAR);
  A68C_DEFIO (compl, complex, COMPLEX);
  A68C_DEFIO (complex, complex, COMPLEX);
  A68C_DEFIO (double, long_real, LONG_REAL);
  A68C_DEFIO (int, int, INT);
  A68C_DEFIO (longbits, long_bits, LONG_BITS);
  A68C_DEFIO (longcomplex, mp_complex, LONG_COMPLEX);
  A68C_DEFIO (longcompl, mp_complex, LONG_COMPLEX);
  A68C_DEFIO (longint, long_int, LONG_INT);
  A68C_DEFIO (longlongcomplex, long_mp_complex, LONG_LONG_COMPLEX);
  A68C_DEFIO (longlongcompl, long_mp_complex, LONG_LONG_COMPLEX);
  A68C_DEFIO (longlongint, long_mp_int, LONG_LONG_INT);
  A68C_DEFIO (longlongreal, long_mp_real, LONG_LONG_REAL);
  A68C_DEFIO (longreal, long_real, LONG_REAL);
  A68C_DEFIO (quad, long_mp_real, LONG_LONG_REAL);
  A68C_DEFIO (real, real, REAL);
  A68C_DEFIO (string, string, STRING);
  a68g_idf (A68G_EXT, "readline", M_PROC_STRING, genie_read_line);
}

//! @brief Set up standenv - extensions.

void stand_extensions (void)
{
// UNIX things.
  MOID_T *m = A68G_MCACHE (proc_int);
  a68g_idf (A68G_EXT, "rows", m, genie_rows);
  a68g_idf (A68G_EXT, "columns", m, genie_columns);
  a68g_idf (A68G_EXT, "argc", m, genie_argc);
  a68g_idf (A68G_EXT, "a68gargc", m, genie_a68g_argc);
  a68g_idf (A68G_EXT, "errno", m, genie_errno);
  a68g_idf (A68G_EXT, "fork", m, genie_fork);
  m = a68g_proc (M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "getpwd", m, genie_pwd);
  m = a68g_proc (M_INT, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "setpwd", m, genie_cd);
  m = a68g_proc (M_BOOL, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "fileisdirectory", m, genie_file_is_directory);
  a68g_idf (A68G_EXT, "fileisblockdevice", m, genie_file_is_block_device);
  a68g_idf (A68G_EXT, "fileischardevice", m, genie_file_is_char_device);
  a68g_idf (A68G_EXT, "fileisregular", m, genie_file_is_regular);
#if defined (S_ISFIFO)
  a68g_idf (A68G_EXT, "fileisfifo", m, genie_file_is_fifo);
#endif
#if defined (S_ISLNK)
  a68g_idf (A68G_EXT, "fileislink", m, genie_file_is_link);
#endif
  m = a68g_proc (M_BITS, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "filemode", m, genie_file_mode);
  m = a68g_proc (M_STRING, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "argv", m, genie_argv);
  a68g_idf (A68G_EXT, "a68gargv", m, genie_a68g_argv);
  a68g_idf (A68G_EXT, "reseterrno", A68G_MCACHE (proc_void), genie_reset_errno);
  m = a68g_proc (M_STRING, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "strerror", m, genie_strerror);
  m = a68g_proc (M_INT, M_STRING, M_ROW_STRING, M_ROW_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "exec", m, genie_exec);
  a68g_idf (A68G_EXT, "execve", m, genie_exec);
  m = a68g_proc (M_PIPE, NO_MOID);
  a68g_idf (A68G_EXT, "createpipe", m, genie_create_pipe);
  m = a68g_proc (M_INT, M_STRING, M_ROW_STRING, M_ROW_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "execsub", m, genie_exec_sub);
  a68g_idf (A68G_EXT, "execvechild", m, genie_exec_sub);
  m = a68g_proc (M_PIPE, M_STRING, M_ROW_STRING, M_ROW_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "execsubpipeline", m, genie_exec_sub_pipeline);
  a68g_idf (A68G_EXT, "execvechildpipe", m, genie_exec_sub_pipeline);
  m = a68g_proc (M_INT, M_STRING, M_ROW_STRING, M_ROW_STRING, M_REF_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "execsuboutput", m, genie_exec_sub_output);
  a68g_idf (A68G_EXT, "execveoutput", m, genie_exec_sub_output);
  m = a68g_proc (M_STRING, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "getenv", m, genie_getenv);
  m = a68g_proc (M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "waitpid", m, genie_waitpid);
  m = a68g_proc (M_ROW_INT, NO_MOID);
  a68g_idf (A68G_EXT, "utctime", m, genie_utctime);
  a68g_idf (A68G_EXT, "localtime", m, genie_localtime);
  m = a68g_proc (M_INT, M_STRING, M_STRING, M_REF_INT, M_REF_INT, NO_MOID);
  a68g_idf (A68G_EXT, "grepinstring", m, genie_grep_in_string);
  a68g_idf (A68G_EXT, "grepinsubstring", m, genie_grep_in_substring);
  m = a68g_proc (M_INT, M_STRING, M_STRING, M_REF_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "subinstring", m, genie_sub_in_string);
#if defined (BUILD_UNIX) || defined (BUILD_WINDOWS) 
  m = a68g_proc (M_CHAR, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "peekchar", m, genie_peek_char);
#endif
#if defined (HAVE_DIRENT_H)
  m = a68g_proc (M_ROW_STRING, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "getdirectory", m, genie_directory);
#endif
#if defined (HAVE_CURL)
  m = a68g_proc (M_VOID, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "httptimeout", m, genie_curl_timeout);
  a68g_idf (A68G_EXT, "httpstimeout", m, genie_curl_timeout);
  m = a68g_proc (M_INT, M_REF_STRING, M_STRING, M_STRING, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "httpcontent", m, genie_http_content);
  a68g_idf (A68G_EXT, "httpscontent", m, genie_https_content);
#endif
}

#if defined (HAVE_GNU_PLOTUTILS)

void stand_plot (void)
{
// Drawing.
  MOID_T *m = a68g_proc (M_BOOL, M_REF_FILE, M_STRING, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "drawdevice", m, genie_make_device);
  a68g_idf (A68G_EXT, "makedevice", m, genie_make_device);
  m = a68g_proc (M_REAL, M_REF_FILE, NO_MOID);
  a68g_idf (A68G_EXT, "drawaspect", m, genie_draw_aspect);
  m = a68g_proc (M_VOID, M_REF_FILE, NO_MOID);
  a68g_idf (A68G_EXT, "drawclear", m, genie_draw_clear);
  a68g_idf (A68G_EXT, "drawerase", m, genie_draw_clear);
  a68g_idf (A68G_EXT, "drawflush", m, genie_draw_show);
  a68g_idf (A68G_EXT, "drawshow", m, genie_draw_show);
  m = a68g_proc (M_VOID, M_REF_FILE, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "drawfillstyle", m, genie_draw_fillstyle);
  m = a68g_proc (M_STRING, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "drawgetcolourname", m, genie_draw_get_colour_name);
  a68g_idf (A68G_EXT, "drawgetcolorname", m, genie_draw_get_colour_name);
  m = a68g_proc (M_VOID, M_REF_FILE, M_REAL, M_REAL, M_REAL, NO_MOID);
  a68g_idf (A68G_EXT, "drawcolor", m, genie_draw_colour);
  a68g_idf (A68G_EXT, "drawcolour", m, genie_draw_colour);
  a68g_idf (A68G_EXT, "drawbackgroundcolor", m, genie_draw_background_colour);
  a68g_idf (A68G_EXT, "drawbackgroundcolour", m, genie_draw_background_colour);
  a68g_idf (A68G_EXT, "drawcircle", m, genie_draw_circle);
  a68g_idf (A68G_EXT, "drawball", m, genie_draw_atom);
  a68g_idf (A68G_EXT, "drawstar", m, genie_draw_star);
  m = a68g_proc (M_VOID, M_REF_FILE, M_REAL, M_REAL, NO_MOID);
  a68g_idf (A68G_EXT, "drawpoint", m, genie_draw_point);
  a68g_idf (A68G_EXT, "drawline", m, genie_draw_line);
  a68g_idf (A68G_EXT, "drawmove", m, genie_draw_move);
  a68g_idf (A68G_EXT, "drawrect", m, genie_draw_rect);
  m = a68g_proc (M_VOID, M_REF_FILE, M_CHAR, M_CHAR, M_ROW_CHAR, NO_MOID);
  a68g_idf (A68G_EXT, "drawtext", m, genie_draw_text);
  m = a68g_proc (M_VOID, M_REF_FILE, M_ROW_CHAR, NO_MOID);
  a68g_idf (A68G_EXT, "drawlinestyle", m, genie_draw_linestyle);
  a68g_idf (A68G_EXT, "drawfontname", m, genie_draw_fontname);
  m = a68g_proc (M_VOID, M_REF_FILE, M_REAL, NO_MOID);
  a68g_idf (A68G_EXT, "drawlinewidth", m, genie_draw_linewidth);
  m = a68g_proc (M_VOID, M_REF_FILE, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "drawfontsize", m, genie_draw_fontsize);
  a68g_idf (A68G_EXT, "drawtextangle", m, genie_draw_textangle);
  m = a68g_proc (M_VOID, M_REF_FILE, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "drawcolorname", m, genie_draw_colour_name);
  a68g_idf (A68G_EXT, "drawcolourname", m, genie_draw_colour_name);
  a68g_idf (A68G_EXT, "drawbackgroundcolorname", m, genie_draw_background_colour_name);
  a68g_idf (A68G_EXT, "drawbackgroundcolourname", m, genie_draw_background_colour_name);
}

#endif

#if defined (HAVE_CURSES)

void stand_curses (void)
{
  a68g_idf (A68G_EXT, "cursesstart", A68G_MCACHE (proc_void), genie_curses_start);
  a68g_idf (A68G_EXT, "cursesend", A68G_MCACHE (proc_void), genie_curses_end);
  a68g_idf (A68G_EXT, "cursesclear", A68G_MCACHE (proc_void), genie_curses_clear);
  a68g_idf (A68G_EXT, "cursesrefresh", A68G_MCACHE (proc_void), genie_curses_refresh);
  a68g_idf (A68G_EXT, "cursesgreen", A68G_MCACHE (proc_void), genie_curses_green);
  a68g_idf (A68G_EXT, "cursescyan", A68G_MCACHE (proc_void), genie_curses_cyan);
  a68g_idf (A68G_EXT, "cursesred", A68G_MCACHE (proc_void), genie_curses_red);
  a68g_idf (A68G_EXT, "cursesyellow", A68G_MCACHE (proc_void), genie_curses_yellow);
  a68g_idf (A68G_EXT, "cursesmagenta", A68G_MCACHE (proc_void), genie_curses_magenta);
  a68g_idf (A68G_EXT, "cursesblue", A68G_MCACHE (proc_void), genie_curses_blue);
  a68g_idf (A68G_EXT, "curseswhite", A68G_MCACHE (proc_void), genie_curses_white);
  a68g_idf (A68G_EXT, "cursesgreeninverse", A68G_MCACHE (proc_void), genie_curses_green_inverse);
  a68g_idf (A68G_EXT, "cursescyaninverse", A68G_MCACHE (proc_void), genie_curses_cyan_inverse);
  a68g_idf (A68G_EXT, "cursesredinverse", A68G_MCACHE (proc_void), genie_curses_red_inverse);
  a68g_idf (A68G_EXT, "cursesyellowinverse", A68G_MCACHE (proc_void), genie_curses_yellow_inverse);
  a68g_idf (A68G_EXT, "cursesmagentainverse", A68G_MCACHE (proc_void), genie_curses_magenta_inverse);
  a68g_idf (A68G_EXT, "cursesblueinverse", A68G_MCACHE (proc_void), genie_curses_blue_inverse);
  a68g_idf (A68G_EXT, "curseswhiteinverse", A68G_MCACHE (proc_void), genie_curses_white_inverse);
  MOID_T *m = A68G_MCACHE (proc_char);
  a68g_idf (A68G_EXT, "cursesgetchar", m, genie_curses_getchar);
  m = a68g_proc (M_VOID, M_CHAR, NO_MOID);
  a68g_idf (A68G_EXT, "cursesputchar", m, genie_curses_putchar);
  m = a68g_proc (M_VOID, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "cursesmove", m, genie_curses_move);
  m = A68G_MCACHE (proc_int);
  a68g_idf (A68G_EXT, "curseslines", m, genie_curses_lines);
  a68g_idf (A68G_EXT, "cursescolumns", m, genie_curses_columns);
  m = a68g_proc (M_BOOL, M_CHAR, NO_MOID);
  a68g_idf (A68G_EXT, "cursesdelchar", m, genie_curses_del_char);
}

#endif

#if defined (HAVE_POSTGRESQL)

void stand_postgresql (void)
{
  MOID_T *m = a68g_proc (M_INT, M_REF_FILE, M_STRING, M_REF_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "pqconnectdb", m, genie_pq_connectdb);
  m = a68g_proc (M_INT, M_REF_FILE, NO_MOID);
  a68g_idf (A68G_EXT, "pqfinish", m, genie_pq_finish);
  a68g_idf (A68G_EXT, "pqreset", m, genie_pq_reset);
  m = a68g_proc (M_INT, M_REF_FILE, M_STRING, NO_MOID);
  a68g_idf (A68G_EXT, "pqparameterstatus", m, genie_pq_parameterstatus);
  a68g_idf (A68G_EXT, "pqexec", m, genie_pq_exec);
  a68g_idf (A68G_EXT, "pqfnumber", m, genie_pq_fnumber);
  m = a68g_proc (M_INT, M_REF_FILE, NO_MOID);
  a68g_idf (A68G_EXT, "pqntuples", m, genie_pq_ntuples);
  a68g_idf (A68G_EXT, "pqnfields", m, genie_pq_nfields);
  a68g_idf (A68G_EXT, "pqcmdstatus", m, genie_pq_cmdstatus);
  a68g_idf (A68G_EXT, "pqcmdtuples", m, genie_pq_cmdtuples);
  a68g_idf (A68G_EXT, "pqerrormessage", m, genie_pq_errormessage);
  a68g_idf (A68G_EXT, "pqresulterrormessage", m, genie_pq_resulterrormessage);
  a68g_idf (A68G_EXT, "pqdb", m, genie_pq_db);
  a68g_idf (A68G_EXT, "pquser", m, genie_pq_user);
  a68g_idf (A68G_EXT, "pqpass", m, genie_pq_pass);
  a68g_idf (A68G_EXT, "pqhost", m, genie_pq_host);
  a68g_idf (A68G_EXT, "pqport", m, genie_pq_port);
  a68g_idf (A68G_EXT, "pqtty", m, genie_pq_tty);
  a68g_idf (A68G_EXT, "pqoptions", m, genie_pq_options);
  a68g_idf (A68G_EXT, "pqprotocolversion", m, genie_pq_protocolversion);
  a68g_idf (A68G_EXT, "pqserverversion", m, genie_pq_serverversion);
  a68g_idf (A68G_EXT, "pqsocket", m, genie_pq_socket);
  a68g_idf (A68G_EXT, "pqbackendpid", m, genie_pq_backendpid);
  m = a68g_proc (M_INT, M_REF_FILE, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "pqfname", m, genie_pq_fname);
  a68g_idf (A68G_EXT, "pqfformat", m, genie_pq_fformat);
  m = a68g_proc (M_INT, M_REF_FILE, M_INT, M_INT, NO_MOID);
  a68g_idf (A68G_EXT, "pqgetvalue", m, genie_pq_getvalue);
  a68g_idf (A68G_EXT, "pqgetisnull", m, genie_pq_getisnull);
}

#endif

#if defined (BUILD_LINUX)

  void stand_linux (void)
  {
    #if defined (HAVE_EXECINFO_H)
      a68g_idf (A68G_EXT, "sigsegv", A68G_MCACHE (proc_void), genie_sigsegv);
    #endif
  }

#endif

//! @brief Build the standard environ symbol table.

void make_standard_environ (void)
{
  stand_moids ();
  A68G_MCACHE (proc_bool) = a68g_proc (M_BOOL, NO_MOID);
  A68G_MCACHE (proc_char) = a68g_proc (M_CHAR, NO_MOID);
  A68G_MCACHE (proc_complex_complex) = a68g_proc (M_COMPLEX, M_COMPLEX, NO_MOID);
  A68G_MCACHE (proc_int) = a68g_proc (M_INT, NO_MOID);
  A68G_MCACHE (proc_int_int) = a68g_proc (M_INT, M_INT, NO_MOID);
  A68G_MCACHE (proc_int_int_real) = a68g_proc (M_REAL, M_INT, M_INT, NO_MOID);
  A68G_MCACHE (proc_int_real) = a68g_proc (M_REAL, M_INT, NO_MOID);
  A68G_MCACHE (proc_int_real_real) = a68g_proc (M_REAL, M_INT, M_REAL, NO_MOID);
  A68G_MCACHE (proc_int_real_real_real) = a68g_proc (M_REAL, M_INT, M_REAL, M_REAL, NO_MOID);
  A68G_MCACHE (proc_real) = a68g_proc (M_REAL, NO_MOID);
  A68G_MCACHE (proc_real_int_real) = a68g_proc (M_REAL, M_REAL, M_INT, NO_MOID);
  A68G_MCACHE (proc_real_real_int_real) = a68g_proc (M_REAL, M_REAL, M_REAL, M_INT, NO_MOID);
  A68G_MCACHE (proc_real_real) = M_PROC_REAL_REAL;
  A68G_MCACHE (proc_real_real_real) = a68g_proc (M_REAL, M_REAL, M_REAL, NO_MOID);
  A68G_MCACHE (proc_real_real_real_int) = a68g_proc (M_INT, M_REAL, M_REAL, M_REAL, NO_MOID);
  A68G_MCACHE (proc_real_real_real_real) = a68g_proc (M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID);
  A68G_MCACHE (proc_real_real_real_real_real) = a68g_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID);
  A68G_MCACHE (proc_real_real_real_real_real_real) = a68g_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID);
  A68G_MCACHE (proc_real_ref_real_ref_int_void) = a68g_proc (M_VOID, M_REAL, M_REF_REAL, M_REF_INT, NO_MOID);
  A68G_MCACHE (proc_void) = a68g_proc (M_VOID, NO_MOID);
  stand_prelude ();
  stand_mp_level_2 ();
  stand_mp_level_3 ();
  stand_transput ();
  stand_extensions ();
  #if (A68G_LEVEL <= 2)
    stand_longlong_bits ();
  #endif
  #if defined (HAVE_GNU_MPFR)
    stand_mpfr ();
  #endif
  #if defined (HAVE_GSL)
    stand_gsl ();
  #endif
  #if defined (HAVE_R_MATHLIB)
    stand_mathlib ();
  #endif
  #if defined (BUILD_LINUX)
    stand_linux ();
  #endif
  #if defined (HAVE_GNU_PLOTUTILS)
    stand_plot ();
  #endif
  #if defined (HAVE_CURSES)
    stand_curses ();
  #endif
  #if defined (HAVE_POSTGRESQL)
    stand_postgresql ();
  #endif
}
