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

/* This code is explicitly *not* GPLed.  Use, abuse, and redistribute freely */
// SPDX-FileCopyrightText: (C) Eric S. Raymond <esr@thyrsus.com>
// SPDX-License-Identifier: MIT-0

$M
$E

$K

#define ICKABSTAINED(d) abstain##d
#define ICKSTASH(a,b,c,d) c##ick_stash[b]=c[b]
#define ICKRETRIEVE(a,b,c,d,e) a[b]=a##ick_stash[b]
#define ICKIGNORE(a,b,c) ignore##c##b

ICK_INT16 ick_skipto=0;
$O

$C

$D
$P
int ick_main(void)
{
  pickinit();
      /* degenerated code */
 ick_restart:
 top:
    switch(ick_skipto)
    {
    case 0:
      $G
	}

#ifdef YUK
    if(yukloop) goto ick_restart;
#endif
    ick_lose(IE633, $J, (const char *)0);

    $H

    return 0;
}
$Q

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