/* $A.c -- generated C-code file for INTERCAL program $A.i */

#include <cesspool.h>
#include <lose.h>
#ifdef QDOS
#include <stdio.h>
#include <time.h>

extern void binout(), parseargs();
char _prog_name[] = "$A";
#endif

extern unsigned int mingle(), iselect();
extern unsigned int and16(), or16(), xor16(), and32(), or32(), xor32();
extern unsigned int whirl16(), whirl32(), fin16(), fin32();

int lineno;

static int abstained[$B]$C;
$D

main(argc,argv)
int argc;
char **argv;
{
    /* declare and initialize gerund variables */
    int calculating = TRUE;
    int nexting = TRUE;
    int forgetting = TRUE;
    int resuming = TRUE;
    int stashing = TRUE;
    int retrieving = TRUE;
    int ignoring = TRUE;
    int remembering = TRUE;
    int abstaining = TRUE;
    int reinstating = TRUE;
    int readingout = TRUE;
    int writingin = TRUE;
    int comingfrom = TRUE;

    int skipto = 0;

    parseargs(argc,argv);

    /* set seed for random error generation */
#ifdef USG
    srand48(time((long *)0) + getpid());
#else
    srand(time((long *)0));
#endif /* UNIX */

    /* set up stash storage */
    stashinit();

    $E

    /* degenerated code */
$F
    lose(E633, $B+1, (char *)0);

    /* generated switch for resumes */
 top:
    switch(skipto)
    {
    $G
    }
}

/* Generated code for $A.i ends here */