program f;var i : Byte;s:String="���@�.���j��j";t:array[0..1] of String=(""," ");Begin
for i:=8to 135do Write(Byte(s[i div 8])shr(i mod 8)and 1,t[byte((i+1)mod 8=0)]);
End.