main=interact$f.read
f 0=[]
f x=f(div x 256)++[toEnum$read$show$mod x 128]