1#include <stdio.h>
2
3/* putchard - putchar that takes a double and returns 0. */
4extern double putchard(double X) {
5  putchar((char)X);
6  return 0;
7}
8