#!/bin/awk -f
{
	n = split($0, ln, /\W+/)
	for (i = 1; i <= n; ++i) {
		w = ln[i]
		if (w ~ /^B_/) {
			if (!bsym[w]) {
				print "	out(\"" w "\", " w ");"
				bsym[w] = 1
			}
		}
	}
}
