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