#include <stdlife.h>
DEATH human( void ) {
    MAN i = born( MOTHER, random_gene( MALE ) );
    while ( i.Age < SchoolAge ) {
    if ( play( i ) == ERROR ) /* 事故など */
      return( NORMAL );
    i.Age += grow( i.Health );
  }
  short result = -1; /* 試験結果 */
  while ( i.Age < Adult ) {
    result = exam( i );
    if (result <= ( last_average( i.Age ) * 0.80 )) /* ここは */
      break; /* 法規により定数使用不可 */
    i.Age += grow( i.Health );
  }
  if ( i.Age == Adult ) { /* 最終学歴まで達していれば */
    liveAsMaster( i ); /* 行政に参与 */
  } else {
    while ( i.Age < TooOld ) {
      if ( ( workAsSlave( i ) == ERROR )
      || ( i.Health < MACHINE ) )
        return( NORMAL );
    else
        i.Age += grow( MACHINE ); /* ここでは、法規により */
  }                      /* i.Health の使用不可 */
  }
  /* NOT REACHED */
  return( LOGIC_ERROR ); /* プログラムに問題あり */

「日経MIX」のsf会議で投稿された「暗黒時代のプロクラム」kneo@mix.or.jpさん作
翻訳家でもあるkneoさんのホームページ
他のショートショートも読めます。