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