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