#include "impstrings.h"
#define unless(cond) if (!(cond))
int main(int _imp_argc, char **_imp_argv)       /* record format... */
{
  typedef struct RECORDFM /*L*/ {
  } RECORDFM;   // %recordformat record fm ( %integer field1, %real field2, %string (255) field3 )
  auto void FANCY(void)
  {             // %routine fancy
  }
  auto void FANCY1(int PARAM)
  { // %routine fancy1(%integer param)
  }
  auto void FANCY2(float PARAM)
  { // %routine fancy2(%real param)
  }
  auto void FANCY3(_imp_string255 PARAM)
  { // %routine fancy3(%string(255) param)
  }
  auto void FANCY4(int *PARAM)
  { // %routine fancy4(%integer %name param)
  }
  auto void FANCY5(float * PARAM)
  { // %routine fancy5(%real %name param)
  }
  auto void FANCY6(_imp_string255 * PARAM)
  { // %routine fancy6(%string(255)%name param)
  }
  auto void FANCY7(int *PARAM)
  { // %routine fancy7(%integer %array %name param)
  }
  auto void FANCY8(float * PARAM)
  { // %routine fancy8(%real %array %name param)
  }
  auto void FANCY9(_imp_string255 * PARAM)
  { // %routine fancy9(%string(255)%array %name param)
  }
  auto void FANCY10A(int (*PARAM)(void))
  { // %routine fancy10A(%integer %fn param)
  }
  auto void FANCY10B(int (*PARAM)(void (*SUBPARAM)(float (*SUBSUBPARAM)(float SUBSUBSUBPARAM))))
  { // %routine fancy10B(%integer %fn param(%routine subparam(%realfn subsubparam(%real subsubsubparam))))
  }
  auto void FANCY11(float (*PARAM)(void))
  { // %routine fancy11(%real %fn param)
  }
  auto void FANCY12(_imp_string255 (*PARAM)(void))
  { // %routine fancy12(%string(255)%fn param)
  }
  auto void FANCY13(int (*PARAM)(void))
  { // %routine fancy13(%integer %function param)
  }
  auto void FANCY14(float (*PARAM)(void))
  { // %routine fancy14(%real %function param)
  }
  auto void FANCY15(_imp_string255 (*PARAM)(void))
  { // %routine fancy15(%string(255)%function param)
  }
  auto void FANCY16(int *(*PARAM)(void))
  { // %routine fancy16(%integer %map param)
  }
  auto void FANCY17(float * (*PARAM)(void))
  { // %routine fancy17(%real %map param)
  }
  auto void FANCY18(_imp_string255 * (*PARAM)(void))
  { // %routine fancy18(%string(255)%map param)
  }
  auto void FANCY19(int **PARAM)
  { // %routine fancy19(%integer %name %array %name param)
  }
  auto void FANCY20(float ** PARAM)
  { // %routine fancy20(%real %name %array %name param)
  }
  auto void FANCY21(_imp_string255 ** PARAM)
  { // %routine fancy21(%string(255) %name %array %name param)
  }
  auto void FANCY22(RECORDFM PARAM)
  { // %routine fancy22(%record(record fm) param)
  }
  auto void FANCY23(RECORDFM * PARAM)
  { // %routine fancy23(%record(record fm)%name param)
  }
  auto void FANCY24(RECORDFM * PARAM)
  { // %routine fancy24(%record(record fm)%array %name param)
  }
  auto void FANCY25(RECORDFM ** PARAM)
  { // %routine fancy25(%record(record fm) %name %array %name param)
  }
  auto void FANCY26(RECORDFM (*PARAM)(void))
  { // %routine fancy26(%record(record fm)%fn param)
  }
  auto void FANCY27(RECORDFM (*PARAM)(void))
  { // %routine fancy27(%record(record fm)%function param)
  }
  auto void FANCY28(RECORDFM * (*PARAM)(void))
  { // %routine fancy28(%record(record fm)%map param)
  }
  auto void FANCY29(void (*PARAM)(void))
  { // %routine fancy29(%routine param)
  }
  auto void FANCY30(int (*PARAM)(void))
  { // %routine fancy30(%predicate param)
  }
  auto void FANCY31(void *PARAM)
  { // %routine fancy31(%name param)
  }
  auto void FANCY32(void *PARAM1, void *PARAM2, void *PARAM3)
  { // %routine fancy31(%name param)
  }
}