character c,t*999,l*99
integer i,j,x
x=0
i=1
do while(2>1)
read(5,'(a)',end=1),l
j=1
do while(2>1)
if(l(j:j+1)=='  ')exit
j=j+1
end do
if(i==1.and.l(1:1)>'A')x=1
if(x<1.or.l(j-1:j-1)==':')j=j-1
t(i:i+j)=l
i=i+j
end do
1 if(x>0)i=i-1
call f(t,i-1)
end
subroutine f(c,l)
character c*(l)
print'(a)',c
return
end