#!/usr/bin/perl -w
#
sub security;
sub sensorium;
sub emotion;
sub think;
sub volition;
sub motorium;
while (1) {
  security();
  sensorium();
  emotion();
  think();
  volition();
  motorium();
}
sub security {
# http://mentifex.virtualentity.com/acm.html#security
} def;
sub sensorium {
  # http://mentifex.virtualentity.com/acm.html#sensorium
  print "Press ENTER or ESCAPE key: ";
  $_ = <STDIN> ;
  exit if (/^\027/);
} def;
sub emotion {
  # http://mentifex.virtualentity.com/acm.html#emotion
} def;
sub think {
  # http://mentifex.virtualentity.com/acm.html#think
} def;
sub volition {
  # http://mentifex.virtualentity.com/acm.html#volition
} def;
sub motorium {
  # http://mentifex.virtualentity.com/acm.html#motorium
} def;
#---