main=putStr$[-256..256]>>=f;f n|t<-mod n 2=" #"!!t:take 63(f$div(3^t*n)2)++"|\n"