character*20 a
	byte b(20)
	equivalence (a, b)

	read (10, 99) i, a
 99	format(q, a)

	type 98, i, a, b
 98	format(i3 / ' ', a / 20z3.2)

	end