character*99a,b,c
do j=1,16
a=b
c=""
read(*,'(a)',end=1)b
1 do i=1,49
if(b(i:)>"!")c(i*2:)="_"
if(a(i:)>"!")c(i*2-1:)="|_|"
enddo
print'(a)',trim(c)
enddo
end