main=interact$(0%).map(foldr(&)0).lines
' '&v=v*2401
_&v=v*2401+1
x%(y:z)=(x+y*399)%[]++(y*7206)%[]++(y*7605)%z
0%_="\n"
x%y=" _||"!!length[1,3..mod x 7]:div x 7%y