/*
 * pbn.
 */
#include <stdio.h>

char	dots[64][5] = {
	/*   */ 0000, 0000, 0000, 0000, 0000,
	/* ! */ 0000, 0000, 0137, 0000, 0000,
	/* " */ 0000, 0007, 0000, 0007, 0000,
	/* # */ 0024, 0177, 0024, 0177, 0024,
	/* $ */ 0044, 0052, 0177, 0052, 0022,
	/* % */ 0043, 0023, 0001, 0144, 0142,
	/* & */ 0000, 0000, 0000, 0000, 0000,
	/* ' */ 0000, 0000, 0007, 0000, 0000,
	/* ( */ 0034, 0042, 0101, 0000, 0000,
	/* ) */ 0000, 0000, 0101, 0042, 0034,
	/* * */ 0042, 0024, 0177, 0024, 0042,
	/* + */ 0010, 0010, 0076, 0010, 0010,
	/* 0 */ 0000, 0100, 0060, 0000, 0000,
	/* - */ 0010, 0010, 0010, 0010, 0010,
	/* . */ 0000, 0000, 0100, 0000, 0000,
	/* / */ 0040, 0020, 0014, 0020, 0001,
	/* 0 */ 0076, 0121, 0111, 0105, 0076,
	/* 1 */ 0000, 0102, 0177, 0100, 0000,
	/* 2 */ 0142, 0121, 0111, 0111, 0106,
	/* 3 */ 0041, 0101, 0111, 0115, 0063,
	/* 4 */ 0030, 0024, 0022, 0177, 0020,
	/* 5 */ 0047, 0105, 0105, 0105, 0071,
	/* 6 */ 0074, 0112, 0111, 0111, 0061,
	/* 7 */ 0001, 0161, 0011, 0005, 0003,
	/* 8 */ 0066, 0111, 0111, 0111, 0066,
	/* 9 */ 0106, 0111, 0111, 0051, 0036,
	/* : */ 0000, 0000, 0024, 0000, 0000,
	/* ; */ 0000, 0100, 0064, 0000, 0000,
	/* < */ 0000, 0000, 0000, 0000, 0000,
	/* = */ 0024, 0024, 0024, 0024, 0024,
	/* > */ 0000, 0000, 0000, 0000, 0000,
	/* ? */ 0002, 0001, 0131, 0005, 0002,
	/* @ */ 0000, 0000, 0000, 0000, 0000,
	/* A */ 0174, 0022, 0021, 0022, 0174,
	/* B */ 0177, 0111, 0111, 0111, 0066,
	/* C */ 0076, 0101, 0101, 0101, 0042,
	/* D */ 0177, 0101, 0101, 0101, 0076,
	/* E */ 0177, 0111, 0111, 0111, 0101,
	/* F */ 0177, 0011, 0011, 0011, 0001,
	/* G */ 0076, 0101, 0101, 0121, 0161,
	/* H */ 0177, 0010, 0010, 0010, 0177,
	/* I */ 0000, 0101, 0177, 0101, 0000,
	/* J */ 0040, 0100, 0100, 0100, 0077,
	/* K */ 0177, 0010, 0024, 0042, 0101,
	/* L */ 0177, 0100, 0100, 0100, 0100,
	/* M */ 0177, 0002, 0014, 0002, 0177,
	/* N */ 0177, 0004, 0010, 0020, 0177,
	/* O */ 0076, 0101, 0101, 0101, 0076,
	/* P */ 0177, 0011, 0011, 0011, 0006,
	/* Q */ 0076, 0101, 0121, 0041, 0136,
	/* R */ 0177, 0011, 0021, 0051, 0106,
	/* S */ 0046, 0111, 0111, 0111, 0062,
	/* T */ 0001, 0001, 0177, 0001, 0001,
	/* U */ 0077, 0100, 0100, 0100, 0077,
	/* V */ 0037, 0040, 0100, 0040, 0033,
	/* W */ 0177, 0040, 0030, 0040, 0177,
	/* X */ 0143, 0024, 0010, 0024, 0143,
	/* Y */ 0003, 0004, 0170, 0004, 0003,
	/* Z */ 0141, 0121, 0111, 0105, 0103,
	/* [ */ 0177, 0177, 0101, 0101, 0101,
	/* \ */ 0000, 0000, 0000, 0000, 0000,
	/* ] */ 0101, 0101, 0101, 0177, 0177,
	/* ^ */ 0000, 0000, 0000, 0000, 0000,
	/* _ */ 0001, 0001, 0001, 0001, 0001
};

FILE	*ppt;

main(argc, argv)
char *argv[];
{
	register n;
	char b[128];

	if((ppt=fopen("pp:", "wn")) == NULL)
		error("No punch!\n");
	banl();
	if(argc > 1)
		for(n=1; n<argc; ++n)
			bans(argv[n]);
	else
		while(gets(b))
			bans(b);
	banl();
}

bans(s)
register char *s;
{
	register c;

	banc(' ');
	while(c = *s++)
		banc(c);
}

banc(c)
register c;
{
	register n;
	register char *p;

	if(c>='a' && c<='z')
		c -= 'a'-'A';
	if(c<' ' || c>'_')
		c = ' ';
	p = &dots[c-' '][0];
	n = 5;
	do {
		putc(*p++, ppt);
	} while(--n);
	putc(0, ppt);
}

banl()
{
	register n;

	n = 20;
	do {
		putc(0, ppt);
	} while(--n);
}