program-id.a.data division.local-storage section. 1 l pic x(7).
	procedure division.a.accept l.if l(2:1)=l(3:1)display l(2:1)else
	display l(5:1).if""<l go a.