# XXX this is likely SLOW!
while read A; do
	p "$A"
done