Add footguy.i in INTERCAL

I've managed to implement the classical footguy program in INTERCAL.
In order to get it to work you have to comment out line 234 in
cesspool.c and recompile to force flushing after each character.

in function binout.
before:
    if (c == '\n')
      fflush(stdout);

after:
    /*if (c == '\n')*/
      fflush(stdout);

The original footguy can be found at:
http://www.waste.org/~lordtoad/LameNESS/footguy/

And here's the source for footguy.i. Adjust the constant number at line
(27) to match your computerspeed. The footguy should tap about once
every second.